type oliladu=record
       nimi: string[5];
       tonnidearv: real;
     end;
var lf: file of oliladu;
 i, oige, n: integer; saldo: real;
 ladu: oliladu;
 laonimi, vastus: string;
begin
 assign(lf, 'olid.dat');
 reset(lf);
 repeat
   n:=filesize(lf);
   write('Lao nimi: '); readln(laonimi);
   write('Saldo: '); readln(saldo);
   i:=0; oige:=-1; seek(lf, 0);
   while(i<n) and (oige<0) do begin
     read(lf, ladu);
     if laonimi=ladu.nimi then oige:=i;
     i:=i+1;
   end;
   if oige>=0 then begin
     ladu.tonnidearv:=ladu.tonnidearv+saldo;
     seek(lf, oige);
     write(lf, ladu);
   end
   else writeln('Ladu ', laonimi,' puudub.');
 writeln('Kas on veel muutusi? (ja/ei)'); readln(vastus);
 until vastus='ei';
 close(lf);
end.