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.