Αρχεία κειμένου

Παράδειγμα:

program testfile;
var
   f : text;
   i : integer;

begin
     assign(f, 'INT.TXT');

     rewrite(f);
     for i := 1 to 5 do
         writeln(f, i);
     close(f);

     reset(f);
     while not eof(f) do
     begin
         readln(f, i);
         writeln(i)
     end;
     close(f);
end.

Μετά την εκτέλεση του παραπάνω προγράμματος το αρχείο INT.TXT θα περιέχει το παρακάτω κείμενο:

1
2
3
4
5