type oliladu=record
       nimi: string[5];
       tonnidearv: real;
     end;
var lf: file of oliladu;
 i, n: integer;
 ladu: oliladu;
begin
 assign(lf, 'olid.dat');
 {$I-}
 reset(lf);
 {$I+}
 if IOResult=0 then seek(lf, filesize(lf))
 else rewrite(lf);
 write('mitu ladu? '); readln(n);
 for i:=1 to n do
 begin
   write('Lao nimi: '); readln(ladu.nimi);
   write('Tonnide arv: '); readln(ladu.tonnidearv);
   write(lf, ladu);
   writeln;
 end;
 writeln('Failis on kokku ', filesize(lf),' laoseisu.');
 close(lf);
end.