В текстовом файле в строке с заданным номером k>0 подсчитать количество цифр - Pascal

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

В текстовом редакторе создать файл из нескольких строк символов. Вывести его содержимое на экран. В строке с заданным номером k>0 подсчитать количество цифр. Полученное значение записать в конец файла и вывести содержимое измененного файла на экран.

Решение задачи: «В текстовом файле в строке с заданным номером k>0 подсчитать количество цифр»

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

var f:text;
    s:string;
    i,k,n:integer;
begin
repeat
write('Введите номер строки k>0 k=');
readln(k);
until k>0;
assign(f,'text.txt');//файл в папке с программой
reset(f);
i:=0;
while not eof(f)and(i<>k)do
 begin
  readln(f,s);
  i:=i+1;
 end;
close(f);
if i<k then
 begin
  write('В файле нет ',k,' строк');
  exit;
 end;
n:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then n:=n+1;
append(f);
writeln(f,'');
writeln(f,n);
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  writeln(s);
 end;
close(f);
end.

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

Объявляются переменные:
- f как файловая переменная;
- s как строковая переменная;
- i, k, n как целочисленные переменные.
Выполняется ввод значения k с клавиатуры:
- Вводится значение k до тех пор, пока оно не будет больше 0.
Открывается файл text.txt для чтения.
Инициализируется счётчик i равный 0.
В цикле происходит чтение строк из файла до тех пор, пока не будет достигнута строка с номером k:
- Если файл не кончился, и текущая строка не является строкой с номером k, то считывается следующая строка и увеличивается значение счётчика i.
Файл закрывается.
Если значение счётчика i меньше значения k, то выводится сообщение, что в файле нет строки с номером k.
Инициализируется значение счётчика цифр n равным 0.
Происходит анализ каждого символа строки s для подсчёта количества цифр:
- Если символ является цифрой (входит в диапазон['0'..'9']), то увеличивается счётчик n.
Открывается файл text.txt для дозаписи.
Записывается в файл значение счётчика цифр n.
Повторно открывается файл для чтения.
Производится вывод содержимого файла на экран.