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

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

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

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.

Для вывода в порядке количества вхождений буквы это количество нужно подсчитать и желательно сохранить. Вот, посмотри, в этой программе я использую для этого массив n. В первом цикле я подсчитываю количество вхождений, а во втором вывожу на печать (без предварительного упорядочивания).

const
  s:string='Hello World';

var
  i:integer;
  n: array['A'..'Z']of integer;
  c,d: char;

begin
  for i:=1 to Length(s) do begin
    c:=UpCase(s[i]);
    if c in ['A'..'Z'] then Inc(n[c])
  end;
  repeat
    d:='A';
    for c:='A' to 'Z' do if n[c]>n[d] then d:=c;
    if n[d]>0 then Write(d) else Break;
    n[d]:=0
  until false;
  ReadLn
end.

Добавлено через 2 мин.
Помимо прочего, обрати внимание на использование функции UpCase для перевода в верхний регистр. Без этого теряется общность..