{see prog. loeb failist andmed ja kirjutab nende j„rgi palgalehed}
uses crt;
type nimed=record
     nimi:string[8];
     raha:real;
end;
var
nf:file of nimed;
        i,n:integer;
        nimi:nimed;
begin
     assign(nf,'nimed.dat');
     reset(nf);
     n:=filesize(nf);
     for i:=1 to n do
     begin
     read(nf, nimi);
     writeln('                                           kuup„ev________');
     write('nimi: '); writeln(nimi.nimi);
     write('teenitud palk:'); write(nimi.raha:10:2); writeln('EEK');
     write('                                  allkiri:________'); writeln;
     writeln;
     writeln;
     writeln;
     end;
     readln;
     close(nf);
     clrscr;
end.