program z16_47;
uses crt;
var S: String;
n,k,i,max: Byte;
ch: Char;
BEGIN
clrscr;
write('Введите строку');
readln(S);
n:=Length(S);
max:=0;
k:=1;
For i:=2 to n do
If S[i]=S[i-1] Then k:=k+1
else begin
if k>max Then Begin max:=k;
ch:=S[i-1] End;
k:=1;
end;
If k>max then begin max:=k; ch:=S[n] end;
writeln('Максимальная группа состоит из' , ch,' ee длина-',max);
END.