uses dos;
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;
 dirinfo: SearchRec;
begin
 writeln('Siin kataloogis on laofailid:');
 findfirst('*.dat', AnyFile, dirinfo);
 while DosError=0 do begin
  writeln(dirinfo.name);
  findnext(dirinfo);
 end;
 write('Failinimi: '); readln(laonimi);
 assign(lf, laonimi);
 {$I-}
 reset(lf);
 {$I+}
 if IOResult<>0 then begin
    write('Kas soovid luua laofaili ',laonimi,'? (ja/ei)');
    readln(vastus);
    if vastus='ja' then rewrite(lf) else halt;
 end;
 repeat
   n:=filesize(lf);
   write('Lao nimi: '); readln(laonimi);
   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
     write('Saldo: '); readln(saldo);
     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.