//Zapis udajov do suboru
program vzorovyprogram;
{$APPTYPE CONSOLE}
uses SysUtils;
var subor:text; //Vzdy musis zadeklarovat suborovu premennú
    udaj:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(subor,'nazov_suboru.txt'); //Tento prikaz sluzi na zapisanie cesty suboru
  append(subor); //Otvorenie suboru s kurzorom na konci suboru (Na pridanie novych udajov)
  repeat
    write('Zadajte nejaky udaj (ukoncenie 0): ');
    readln(udaj);
    if udaj='0' then break;
    writeln(subor,udaj); //Zapisanie do suboru (subor) udaj (udaj). Kurzor skoci do dalsieho riadku
  until udaj='0';
  close(subor); //Zatvorenie suboru
end.