Сортировка повторяющихся данных в массиве

[MDS]

Доброго времени суток!
Необходимо составить программу, которая бы находила в массиве разные цепочки из одинаковых чисел, записывала их в другой массив и находила большее из массива и выдавала количество чисел из цепочек, пример:

массив: 11115655555555554389988888888888
Вывод: Максимальное количество символов из повторяющихся цепочек 11

С аналитикой не очень.
У меня не получается записывать каждую цепочку по отдельности в массив в итоге получилось, что программа работает только для одной цепочки да еще с погрешностью, например есть массив такой: 11101111, программа должна выводить 4, а выводит 7. Вот, что сделал:

program ccc;
uses crt;
const a=10; b=10;
var m:array [1..a] of real; k:array[1..b] of real;
i,j,h:integer; g:real;
begin
TextBackground(1);
TextColor(14);
Clrscr;
for i:=1 to a do
readln(m[i]);
for i:=1 to a do
if m[i]=m[i+1] 
then g:=g+1;
for i:=1 to a do
 for j:=1 to b do
 k[i]:=g;
Writeln(g:2:0);
end.

Можно без массивов, как проще, просто нужна программа, увы, не могу решить