Здравствуйте, Hercules!
код приводить не буду, а вот натолкнуть на мысль могу.
1. попробуйте поискать алгоритмы сортировки по таким ключевым словам:
сортировка Шелла, пузырек, Быстрая сортировка....
2.следует вначале упорядочить массив значений. например, по убыванию (замечу, что буквы упорядочить тоже можно, т.к. их коды ord(char) расположены последовательно. например, код латинской А = 65, а B = 66...)
далее нужно всего лишь просматривать массив на повторяющиеся символы и запоминать максимальное количество

Здравствуйте, Hercules!
Надоело делать за кого-то лабы....
Только напишу подсказки, а полный код пиши сам. Иначе никогда не научишься программерству.


Приложение:
1. Сортировка массива чисел по убыванию (метод "пузырька"):var A: array[1..N] of integer; i, t: integer; b: boolean;begin repeat b:=true; for i:=1 to N-1 do if A[i]<A[i+1] then begin t:=A[i]; A[i]:=A[i+1]; A[i+1]:=t; b:=false; end; until b;end;2. Поиск наиболее часто встречающейся буквы в строке:var S: string; A: array[char] of integer; //количество встречающихся //символов c, g: char; i, m: integer;begin S:=Edit1.Text; //исходная строка for c:=#0 to #255 do A[c]:=0; //сброс счётчиков for i:=1 to Length(S) do inc(A[S[i]]); //ищем максимальный счётчик m:=0; for c:=#0 to #255 do if A[c]>m then begin m:=A[c]; //новый максимум g:=c; //символ, который встречается (пока) чаще всех end; //g содержит наиболее часто встречающийся символ //если таких несколько, то с наименьшим кодом ASCIIend;Остальное руцямиУдачи в сдаче сессии.