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

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

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

Var
    f1:text;
    filename, s: string;
begin
  filename := 'C:\Users\Gomynkyl\AppData\Local\Temp\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.