Vypis ziakov

//Vypis ziaci
program vypisziakov;
{$APPTYPE CONSOLE}
uses SysUtils;
var f:text; udaj:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(f,'ziaci.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f,udaj);
      writeln(udaj);
    end;
  close(f);
  readln;
end.