{ TEXTOVY_SUBOR.PAS                              Copyright (c) Pheo }
{ Program ktorý vloží žubovožný text do súboru a načíta text zo     }
{ súboru.                                                           }
{                                                                   }
{ Datum:05.04.2005                             http://www.trsek.com }
 
Program Textovy_subor; {Textove subory}
uses crt; 
var f    : text; {Definovanie premennej typu textovy subor }
    znak : Char;
    texty: string;
begin
    clrscr;
    Assign(f,'text.txt'); {Priradenie suborovej premennej meno vonkajsieho suboru}
       Rewrite(f);        {Vytvorenie suboru}
       WriteLn(f, 'Tento text je pridany do noveho suboru');
    Close(f);             {Zatvorenie suboru}
    Append(f);            {Otvorenie suboru pre pridavanie}
       writeln('Napis nieco:');
       read(texty);
       WriteLn(f,texty);
    Close(f);
    Assign(f,'text.txt');
       Reset(f);          {Otvorenie suboru pre citanie}
       while not Eof(f) do  {Cyklus sa vykonava pokial nie je koniec suboru}
       begin
            Read(f,znak); {Nacitanie 1 znaku zo suboru}
            Write(znak);  {Vypis znaku na obrazovku}
       end;
    readln;
end.