DeclareRec('Program');
DeclareRec('Sklad');
DeclareRec('KeySklad1');

Veta:LongInt

ModifyMode(True);

ClearKey(KeySklad1);
While(NextKey(KeySklad1,Veta))
  begin
    ReadRec(Sklad,Veta);
    ModifyRec(Sklad,Veta);
  end;

end