задачі

 Читання послідовності довжиною до 35 символів з ​​текстового файлу example.txt (його вміст, наприклад, "23456 Всім привіт!"

     Функція Eoln (var F: text) повертає булеве значення True, якщо поточна файлова позиція знаходиться на маркері кінця рядка або виклик Eof (F) повернув значення True. У всіх інших випадках значення функції буде False.

     Функція Eof (var F: text) повертає булеве значення True, якщо вказівник кінця файлу знаходиться відразу за останнім компонентом. В іншому випадку - False.

program wtf2;
var F: text; St: string[35];
begin
    assign(F, 'example.txt');     reset(F);
    while not Eoln(F) do

        begin

           read(F,St);
          writeln('St = ',St);         end;
    readln(F);     close(F);
    writeln('вивід символів з ​​файлу закінчено. для виходу — Enter.');
    readln;
end.

 При роботі з файлами в TP використовуються наступні процедури:

     assign (var F; name: string); - встановлює відповідність між файлом і файлової змінної, відкриває всі інші процедури роботи з файлами. F - змінна будь-якого файлового типу, name - повне ім'я файлу.
     close (var F); - закінчення процедур роботи з файлами (закриття файлу).
     rewrite (var F: file); - створює і відкриває новий файл.
     reset (var F: file); - відкриває існуючий файл.
     append (var F: text); - відкриває існуючий текстовий файл і позиціонує покажчик обробки на кінець файлу.

     Після цього можна доповнювати текстовий файл інформацією, починаючи з кінця рядка.

     erase (var F); - видаляє невідкритий зовнішній файл будь-якого типу, що задається змінною F.
     rename (var F: newname: string); - перейменовує невідкритий файл F будь-якого типу. Нове ім'я задається рядком newname.

     Текстовий файл можна розглядати як послідовність символів, розбиту на рядки довжиною від 0 до 256 символів. Для опису використовується стандартний тип text: var F: text; (F - файлова змінна).