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

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

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

var f1: text;
    filename, s: string;
begin
 filename := 'F:\Pascal\урок 18\input.txt';
 assign(f1, filename);
 reset(f1);
 writeln('=======Содержимое файла=======');
 while not eof(f1) do
  begin
   readln(f1, s);
   writeln(s);
  end;
 writeln('==============================');
 readln();
end.