uses crt;
type nimekiri=record
nimi:string[10];
nimednr:integer;
summa:real;
end;
    var f:file of nimekiri;
    n,i:integer;
nimed:nimekiri;
begin
assign(f,'nimed.dat');
reset(f);
n:=filesize(f);
writeln('Failis in', n, 'inimese andmed');
writeln('Inimese nimi:tulemus');
for i:=1 to n do
begin
read(f, nimed);
writeln(nimed.nimi, ' ', nimed.nimednr);
end;
close(f);
readln;
clrscr;
end.