Текстовый файл: переписать в файл g все компоненты файла f, изымая все цифры - PascalABC.NET

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

Даны текстовый файл f. Переписать в файл g все компоненты файла f, изымая все цифры.

Решение задачи: «Текстовый файл: переписать в файл g все компоненты файла f, изымая все цифры»

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

(*Даны текстовый файл f. Переписать в файл
 g все компоненты файла f, изымая все цифры.*)
program ex;
var f1,f2:text;
var s:string;
    c:char;
    k:integer;
begin
assign(f1,'text1.txt');
assign(f2,'text2.txt');
reset(f1);
rewrite(f2);
while not(eof(f1)) do 
 while not (eoln(f1)) do
 begin
 read(f1,c);
 if (ord(c)<48)or(ord(c)>57) then write(f2,c);
 end;
 close(f1);
 close(f2);
writeln(k);
end.

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

Указаны два текстовых файла: f и g.
Задано условие: переписать все компоненты файла f в файл g, изымая все цифры.
Для выполнения задачи созданы следующие переменные:
- f1, f2: text;
- s: string;
- c: char;
- k: integer.
Файл f1 открывается для чтения, файл f2 открывается для записи.
В цикле while с условием not(eof(f1)) происходит чтение файла f1 до конца.
Вложенный цикл while с условием not(eoln(f1)) производит проверку, является ли текущий символ концом строки.
Если символ не является цифрой (ord(c)<48 or ord(c)>57), он записывается в файл f2.
После завершения внутреннего цикла, файл f1 переходит к следующей строке.
По завершении чтения файла f1, файл f1 закрывается, а файл f2 сохраняется.
Значение переменной k выводится на экран.