Program readtextfile;
Uses crt;  // Подключаем модуль для clrscr
var
  fl:text;  // Для связи программы с текстовым файлом. Файловые переменные, предназначенные для работы с текстовыми файлами, должны иметь тип данных Text.
  str:string;  // Будем использовать для чтения строк из файла.
begin
  clrscr;  // clrscr - очищает экран
  assign (fl, 'programs\text.txt');  // Теперь посредством файловой переменной «fl» мы можем управлять файлом «text.txt».
  reset (fl);  // Инициация файла – это открытие файла для чтения, записи либо для чтения и записи одновременно. Процедура Reset говорит нам о том, что файл открывается только для чтения.
  while not eof(fl) do begin  // Цикл работает, пока текущая позиция не дойдёт до конца строки.
    readln (fl,str);  // Для того чтобы получить доступ к записям, хранящимся в файле, используются процедуры Read, Readln, Write, Writeln. В результате действия процедуры Read из файловой переменной «fl» будет прочитана информация и эта информация будет записана в строковую переменную «str». 
    write(str);  // Вывод на экран.
  end;
  close(fl);  //  Стандартная процедура закрытия файла.
  readln; // Ожидание ввода, т.е. нажатия "Enter" от пользователя.
end.