Найти и вывести слово, содержащее наибольшее количество цифр

Var MAXS,C: String;
    Max,I,K,Pb:integer;
Begin
 Write('Введите текст: ');
 ReadLn(C);
 C:=C+' ';   //прибавляем к строке в конце пробел
 Max:=0;
   While pos(' ',C) <> 0 Do // делаем пока есть пробел
     Begin
      k:=0;
      Pb := pos(' ',C);  //находим позицию первого пробела
      for i:=1 to length(Copy(C,1,Pb-1)) do  // от 1 символа до конца 1 слова(до первого пробела)
      if c[i] in ['0'..'9'] then K:=K+1; // считаем кол.цифр
      If Max<K Then    //сравниваем
      begin
      Max:=K;
      MAXS:=Copy(C,1,Pb-1); // слово содержащее наиб.кол.цифр
      end;
      Delete(C,1,Pb); // удаляем первое слово
      // идем заново
     End;
 Write('Слово содержащее наиб.кол.цифр: ');
 WriteLn(MaxS);
End.
 
// КОНЕЦ :) //

uses crt;
const nmax=100;
var a:array[1..nmax] of string[80];
    n,i,j,mx,imx,k:byte;
begin
clrscr;
repeat
write('Количество слов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' слов длиной до 80 символов:');
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Массив:');
imx:=0;mx:=0;
for i:=1 to n do
 begin
  write(a[i],' ');
  k:=0;
  for j:=1 to length(a[i]) do
  if a[i][j] in ['0'..'9'] then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    imx:=i;
   end;
 end;
writeln;
if imx=0 then write('Слов, содержащих цифры нет')
else write('Больше всего цифр в слове ',a[imx]);
readln
end.