Задача 1 урок 18

Задача 1 урок 18

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

Var
    f1:text; // тип для открытия текстового файла
    filename, s: string;
begin
  filename := 'C:\Users\boris\Documents\HTML\IFF.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.