Упорядочить строки матрицы в соответствии с ростом доли цифр

Var A:array[1..10,1..10]of char; 
I, K : Byte;
begin
 For I:=1 To 10 Do
     Begin  {Блок заполнения строки<}
       For K:=1 To 10 Do
         Begin  {Блок заполнения строки элементами}
          A[i,k]:=chr(random(48)+42);
           Write(A[I,K]:3);
           end;
           writeln;
        end;
end.

Var A:array[1..10,1..10]of char;
i, j, ChRand : Byte;
begin
 For i:=1 To 10 Do
     Begin  {Блок заполнения строки<}
       For j:=1 To 10 Do
         Begin  {Блок заполнения строки элементами}
          ChRand := random(26+10); {26 - количество английских букв + 10 - количество цифр}
          if ChRand<10 then {тогда это цифра}
              A[i,j] := chr(ChRand + ord('0'))
          else {тогда это буква. }
             A[i,j]:= chr(ChRand - 10 + ord('A'));
           Write(A[i,j]:3);
           end;
           writeln;
        end;
 WriteLn;
end.

if A[i,j] in ['0'..'9'] 
   then {элемент массива - ЦИФРА}
         ....
   else {НЕ ЦИФРА}
         ....

cnt := 0;
for j:=1 to N do 
  if A[i,j] in ['0'..'9'] then Inc(Cnt);
WriteLn('в строке ',i,' = ', cnt)

Var A:array[1..10,1..10]of char; 
I, K,C : Byte;
begin
 For I:=1 To 10 Do
     Begin  {Блок заполнения строки<}
       For K:=1 To 10 Do
         Begin  {Блок заполнения строки элементами}
          A[i,k]:=chr(random(48)+42);
           Write(A[I,K]:3);
           end;
           writeln;
        end;
        c:=0;
       for i:=1 to k do  begin
       read (A[i,k]);
 if chr(0)<=A[i,k]<=chr(9) then Inc(C);
           end;
 
end.