Добавить в программу сортировку пузырьком

[DeadKeLeVRa]

Пожалуйста помогите добавить в программу сортировку пузырьком. (Программа предназначена для подсчета каждого символа в текстовом файле, необходимо упорядочить результаты подсчета). Pascal

var
   f    : text;
   ch   : char;
   count: array[char] of longint;
begin
   for ch := low(char) to high(char) do
       count[ch] := 0;
 
   assign(f, 'd:name.txt');
   reset(f);
   while not eof(f) do
   begin
        read(f, ch);
        inc(count[ch]);
   end;
   close(f);
 
   for ch := low(char) to high(char) do
       if count[ch] > 0 then
          writeln('''', ch, ''='', count[ch]);
   readln;
end.