Задача 1 Урок 20

Задача 1 Урок 20 Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.

Var
    f1:text; // тип для открытия текстового файла
    filename, s: string;
begin
  filename := 'C:\Users\user\Documents\input.txt'; // путь к файлу

  assign(f1, filename); { связывание переменной дескриптора
                        с путём к файлу }
  reset(f1); // открываем файла для чтения

  writeln('========nachalo faila=====');
  while not eof(f1) do // пока не достигнут конец файла
    begin
      readln(f1, s);  // читаем из него очередную строку
      writeln(s); // и выводим её в консоль
    end;
  writeLn('========= konez faila =========');

  readln();
end.                            

Вывод консоли:

========nachalo faila=====
Hello world!
I created a file on my system
and output it
ENDDDDDD
========= konez faila =========