program stroka;
var s,k:string; l,p,i,n,i1,i2: integer;
begin
writeln('введите строку символов');
readln(s);
l:=length(s);
p:=1;
k:=s[p];
for i:= 2 to l do
if s[i]= k then begin k:=s[i]; i2:=i; end;
n:=l-i2;
i2:=i2+1;
p:=p+1;
for i1:= 1 to n do
if (s[p]=s[i2]) then
begin
k:=k+s[p];
p:=p+1;
i2:=i2+1;
end
else begin p:=1; break; end;

write('там тададам!!!! = ');
write(p-1);
write(' повторяются символы: ',k);
end.