Задача на Строки, подсчет гласных и согласных+сортировка букв в порядке их употребления. Опции

[lotion]

суть:пересчитать гласные и согласные во введённой строке, а потом вывести побуквенно в порядке убывания количества раз употреблённости во введённой строке

первую часть (подсчет букв) написал...а вот с сортировкой торможу..решение нужно очень срочно.желательно-до завтрашнего утра...Реализация на процедурах или функциях.

То что написанно:

Program GlasnSogl;
uses crt;
Type
  Letters = set of 'a'..'z';
Var
  Glasn, Sogl : Letters;
  Text : String;
  i, G, S : byte;
procedure Podscet;

Begin

  Glasn := ['a', 'e', 'i', 'o', 'u', 'y'];
  Sogl := ['b'..'d', 'f', 'g', 'h','j'..'n', 'p'..'t', 'v'..'x', 'z'];
 
  G := 0;
  S := 0;
  For i := 1 to Length(Text) do
    Begin
      If Text[i] in Glasn
        Then
          G := G+1;
            If Text[i] in Sogl 
              Then
                S := S+1;
    End;
  Writeln('v texte " ', Text, ' " ', G, ' glasnih and ', S, ' soflasnih bykv');
end;


begin

 Writeln('inputting');
  Readln(Text);
  podscet;
   
  readln;


End.
end.