{prog. moodustab faili, kus on t””liste nimed ja teenitud palgad}
program tooliste_nimekiri;
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');
     rewrite(nf);
     write('Mitu t””list?'); readln(n);
     for i:=1 to n do
     begin
          write('t””lise nimi: '); readln(nimi.nimi);
          write('palga suurus: '); readln(nimi.raha);
          write(nf,nimi);
          writeln;
     end;
     close(nf);
     clrscr;
end.