Вывести данные в порядке убывания частоты повторений цифры 2

const n=10;kb=80;
type st_iz_tsifr = record
                    st:string[kb];
                    ks:array[0..9] of byte;
                   end;
var a:array[1..n] of st_iz_tsifr;
    i,j,t:integer;
    temp:st_iz_tsifr;
begin    
    for i:=1 to n do
      with a[i] do
       begin
        st:='';
        for j:=0 to 9 do ks[j]:=0;
        for j:=1 to kb do begin t:=random(10); st:=st+chr(t+48);inc(ks[t]) end;
       end; 
    for i:=1 to n-1 do
     for j:=1 to n-i do
      if a[j].ks[2]<a[j+1].ks[2]
       then begin
             temp:=a[j];
             a[j]:=a[j+1];
             a[j+1]:=temp
            end; 
    for i:=1 to n do 
     with a[i] do
       begin
        writeln(st);
        for j:=0 to 9 do write('''',j,''':',ks[j]:2,'  ');
        writeln
       end; 
end.