Delphi. Прошу написать код сортировки

[yuriy1]

Разработать программу обработки текста. Определить в тексте наиболее часто встречающиеся символы.

наработки:

procedure TForm1.Button1Click(Sender: TObject);
const
   RusChars=['А'..'Я','а'..'я'];
var A: array['А'..'я'] of integer;
  ch: char;
  Vvod: string;
  i: integer;
begin
  for ch:='А' to 'я' do A[ch]:=0;
  Vvod:=Memo1.Text;
  for i:=1 to Length(Vvod) do
    if Vvod[i] in RusChars then
           inc( A[Vvod[i] ]);
  ListBox1.Items.Clear;
  for ch:=#192 to #255 do
    if A[ch] > 10 then
       ListBox1.Items.Add(' символ '+ch+' встречается '+IntToStr( A[ch] ) + ' кол-во раз ');


end;

Так вот, хотелось бы, чтобы был некий рейтинг из 10ти символов по убыванию. За ранее спасибо.