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');
  rewrite(f);
  writeln('Mitu inimest?');
  readln(n);
  for i:=1 to n do
  begin
    write('Inimese nimi:'); readln(konto.nimi);
    write('Konto number:'); readln(konto.konto_nr);
    write('Summa:'); readln(konto.summa);
    write (f,konto);
    writeln;
    end;
close(f);
end.