type oliladu=record
       nimi: string[5];
       tonnidearv: real;
     end;
var lf: file of oliladu;
 i, n: integer;
 ladu: oliladu;
begin
 assign(lf, 'olid.dat');
 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;
 close(lf);
end.