Задание на тему "Строки" в Pascal

[Kot_Bayun]

Задание на тему "Строки" в Pascal

Есть проблема в создании программы, а именно в самой идее решения (на форуме подобных заданий найти не удалось), поэтому прошу помочь в написании кода на языке Pascal и, если есть возможность, в объяснении работы программы. Себя в этой теме я, увы, пока ещё неуверенно чувствую.
Собственно, само задание:
Ввести строку символов. Найти в этой строке наибольшую по длине последовательность повторяющихся символов и вывести её на экран.

Пример:
Входные данные:
abc*/.;bbcccd
Выходные данные:
ccc

 

[Евгений]

var s,s1,s2:string;
max,i,j:integer;
c:char;
begin
Writeln('Stroka simvolov:');
Readln(s);
s1:=''; s2:=''; i:=1; j:=1; max:=0;
repeat
c:=s;
s1:=s1+c;
Inc(i);
While s=c do
begin
s1:=s1+c;
Inc(j);
Inc(i);
end;
if j>max then
begin
max:=j;
s2:=s1;
end;
s1:='';
j:=1;
until i> Length(s);
Writeln;
Writeln(s2);
Readln;
end.

 

[Kot_Bayun]

Большое Вам спасибо!tehno006