Program Cteni2;
var soubor : text;
    ctenizesouboru: String;

begin
  assign(soubor,'D:\Dokumenty\Soubory\soubor2.txt');
  reset(soubor);
  while not EOF(soubor) do
  begin
    readln(soubor,ctenizesouboru);
    writeln(ctenizesouboru);
  end;
  close(soubor);
  readln;
end.
