Упорядочить слова по убыванию количества входивших в них цифр

Var s:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=Length(s) downto 1 do
     if (s[i] in ['0'..'9']) then Delete(s,i,1);
    writeln('Полученная строка: ',s);
End.

var i,j,a,b: integer;
  s: string;
  f: array [1..100] of string;
Begin
    write('Введите строку: ');readln(s);
    For i:=Length(s) downto 1 do
     if (s[i] in ['0'..'9']) then Delete(s,i,1);
    writeln('Полученная строка: ',s);
    s:=' '+s;
  s:=s+' ';
  j:=1;
  i:=1;
  
  repeat
    
    if ((s[i]=' ')and(s[i+1]>'A')and(s[i+1]<'я')) then
    begin
      repeat      
        i:=i+1;
        f[j]:=f[j]+s[i];    
      until (s[i+1]=' ');
      j:=j+1;   
    end;
    i:=i+1; 
  until (i=s.Length);
  
  j:=j-1;
  
  for b:=1 to j-1 do
      for a:=1 to j-1 do
        if (f[a].Length>f[a+1].Length) then 
          begin
            s:=f[a];
            f[a]:=f[a+1];
            f[a+1]:=s;
          end;
          
  for i:=1 to j do
    writeln(f[i]);
End.