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

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

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

var f:text; s,name:string;
begin
  name:='C:\Users\test\Desktop\TraliVali\file.txt';
  assign(f,name);
  reset(f);
    writeln('========nachalo=====');
  while not eof(f) do
    begin
      readln(f, s);
      writeln(s);
    end;
  writeLn('========= konez =========');
  readln();
end.