задача 1 урок 19

задача 1 урок 19

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

Решение

program example_1_lesson19;
var
  f1: text;
  filename, s: string;
begin
  filename :='C:\Users\XE\Documents\Pascal\input.txt';
  assign(f1, filename);
  reset(f1);

  writeln('==========nachalo============');
  while not eof(f1) do
    begin
      readln(f1, s);
      writeln(s);
    end;
  writeln('==========end===========');
  readln
end.  

Консоль

==========nachalo============
Hello
My name is Kayzer161
I`m leaning Pascal
==========end===========