Урок 18 (Решенная задача номер 1)

Урок 18 (Решенная задача номер 1)

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

var f1 : text;
    filename, s : string;

begin
  filename := '/home/rm/Pascal/unput.txt';
  assign(f1, filename);
  reset(f1);
  writeln('fali-soderzimoe sledyuhee');
  while not eof(f1) do
  begin
    readln(f1, s);
    writeln(s);
  end;
end.