Создать файл из 2-х предложений и вывести из него на экран чётные цифры - Turbo Pascal

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

Создать файл из 2-х предложений и вывести из него на экран чётные цифры.

Решение задачи: «Создать файл из 2-х предложений и вывести из него на экран чётные цифры»

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

var f:text;
i,j:integer;
s:string;
BEGIN
Assign (f, 'Путь к файлу');
Rewrite (f);
For i:=1 to 20 do
Write (f,i);
Writeln(f);
For i:=20 downto 1 do
Write (f,i);
Close (f);
Reset (f);
For i:=1 to 2 do begin
Readln (f, s);
For j:=1 to Length(s) do
If s[j] in ['0','2','4','6','8'] THEN Write (s[j],' ');
Writeln;
end;
Close (f);
END.

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

В первой части кода создается файл по указанному пути с помощью функции Assign и Rewrite.
Во второй части кода происходит запись чисел от 1 до 20 в файл с помощью цикла For.
В третьей части кода происходит запись чисел от 20 до 1 обратно в файл с помощью цикла For.
Четвертая часть кода считывает строку из файла с помощью функции Readln.
Пятая часть кода проверяет каждый символ в строке на равенство одному из символов '0', '2', '4', '6' или '8'.
Если текущий символ является одним из этих символов, он записывается в новую строку.
Выводится последняя строка, содержащая только четные цифры.
Файл закрывается с помощью функций Close.
Установка файла на начало с помощью функции Reset.
Код повторяется для двух строк.
Файл закрывается после каждой итерации.
Код предназначен для работы с файлами, поэтому не использует вложенные списки.