Lab1_var8_z2

{В данной строке найти самую длинную подстроку, состоя-
щую из одинаковых символов}

Program lab1_var8_z2;

var S, // исходная строка
str, //промежуточный результат
res:string; //результат программы
i:integer; //счетчик цикла

Begin

//ввод строки
Writeln('Введите строку:');
Readln(S);
str:=S[1];
//цикл, в котором сравниваются два соседних символа,
//если символы одинаковые, то второй символ добовляется в строку
//мромежуточного результата, иначе символ заменяет прежнюю строку
for i:=1 to length(S)-1 do
begin
if S[i]=S[i+1] then str:=str+S[i+1] else str:=S[i+1];
// в результирующую строку копируется промежуточная строка наибольшей длины
if length(str)>=length(res) then res:=str;
end;

Writeln('Самая длинная подстрока состоящая из одинаковых символов: ',res);
End.