var nr:     integer;
    sf, vf: text;
    nimi:   string;
begin
 assign(sf, 'nimed.txt');
 assign(vf, 'nimekiri.txt');
 reset(sf);
 rewrite(vf);
 nr:=1;
 repeat
   readln(sf, nimi);
   writeln(vf, nr,'. ', nimi);
   nr:=nr+1;
 until eof(sf);
   {eof ehk end of file loetakse o~igeks, kui sulgudes
    ma"rgitud failist lugemisega ollakse jo~utud lo~puni.}
 close(sf);
 close(vf);
 writeln('Nimekirja pandi ',nr-1, ' nime.');
end.