type kontod=record
       nimi:string[10];
       konto_nr:integer;
       summa:real;
       end;
var f:file of kontod;
n,i:integer;
konto:kontod;
begin
  assign(f,'nimed.dat');
  reset(f);
  n:=filesize(f);
  writeln('Failis on ',n ,' inimese andmed.');
  writeln('Inimese nimi:  Konto number:  Summa:');
  for i:=1 to n do
  begin
    read (f,konto);
    writeln(konto.nimi,'          ',konto.konto_nr,'         ',konto.summa:10:1);
    writeln('');
  end;
    close(f);
    readln;


end.