type oliladu=record
       nimi: string[5];
       tonnidearv: real;
     end;
var lf: file of oliladu;
 i, n: integer;
 ladu: oliladu;
begin
 assign(lf, 'olid.dat');
 reset(lf);
 n:=filesize(lf);
 writeln('Failis on ', n, 'ladu.');
 writeln('Lao nimi:     Tonnide arv:');
 for i:=1 to n do
 begin
   read(lf, ladu);
   writeln(ladu.nimi,'       ', ladu.tonnidearv:6:1);
 end;
 close(lf);
end.