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

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.