Stuff

uses crt;
var
 plik:text;
 linia:string;
 nowaOsoba:string;
begin
 clrscr;
 assign(plik, 'C:\imiona.txt');
 reset(plik);
 repeat
  readln(plik, linia);
  writeln(linia);
 until eof(plik);

 readkey;
end.