Вывод файла на экран - PascalABC.NET

Формулировка задачи:

1)как вывести на экран текстовый файл, вот такого содержания: Список ФИО дата возраст 1. Иванов иван иванович 20.01.1996 12 лет 2. Петров петр петрович 30.02.1987 21 год 2)как вывести на экран текстовый файл из такого Иванов иван иванович 20.01.1996 Петров иван иванович 30.02.1987 вот такой 1. Иванов иван иванович 20.01.1996 2. Петров иван иванович 30.01.1996

Решение задачи: «Вывод файла на экран»

Листинг программы

var f:file; 
     d:char;
begin
assign (f,'Путь и имя файла (естественно, с расширением)');
reset (f);
while not EOF (f) do
begin
read(f,d);
write(d);
end;
CloseFile(f);
end.

Объяснение кода листинга программы

Объявляются две переменные: f типа file и d типа char.
Переменной f присваивается значение файла, который необходимо открыть.
Файл открывается с помощью функции reset(f).
Запускается цикл while, который выполняется до тех пор, пока не достигнут конец файла (EOF).
В каждой итерации цикла считывается один символ из файла с помощью функции read(f,d).
Полученный символ выводится на экран с помощью функции write(d).
По завершении работы с файлом, он закрывается с помощью функции CloseFile(f).