Задание 24 ЕГЭ информатика по теме «Программная обработка символьной информации»

var
  f: text;
  i, k, max: integer;
  s: string;
 
begin
  assign(f, 'D:\24.txt');
  reset(f);
  readln(f, s);
  max := 1;
  k := 1; // кол-во подряд идущих
  for i := 2 to length(s) do
  begin
    if s[i] <> s[i - 1] then
    begin
      inc(k);
      if k > max then max := k;
    end
    else k := 1;
  end;
  write(max)
end.

f=open('D:/24.txt')
s=f.readline()
m=1
k=1
for i in range(1,len(s)):
    if s[i]!=s[i-1]:
        k+=1
        m=max(k,m)
    else:
        k=1
print(m)