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

Урок 19

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

 var f1: text;
     filename, s: string;

 begin
   filename := 'C:\Pascal\19\input.txt';
   WriteLn('Put k failu programmy: ');
   WriteLn(ParamStr(0));
   assign(f1, filename);
   {$I-} reset(f1); {$I+}
   if IOResult <> 0 then
     WriteLn('Файл ', filename, ' не найден!')
   else
   begin
     WriteLn('Файл существует, вот его содержимое:');
     WriteLn('===Начало файла===');
     while not eof(f1) do
     begin
       readln(f1, s);
       WriteLn(s);
     end;
     WriteLn('===Конец файла===');
   end;
   readln();
 end.

КОНСОЛЬ

Put k failu programmy:
C:\Pascal\19\Project19.exe
Файл существует, вот его содержимое:
===Начало файла===
Тестовый текст
===Конец файла===