Найти максимальное количество бусинок одного цвета, идущих подряд

procedure Examen(curCount : Integer; curColor : Char;
          var maxCount : Integer; var maxColor : Char);
begin
  if (curCount > maxCount) or ((curCount = maxCount) and (maxColor > curColor)) then
    begin
      maxCount := curCount; maxColor := curColor;
    end;
end;
 
begin
  var S := System.IO.File.ReadAllText('input.txt');
  var maxCount := 0; var maxColor := '9';
  var curCount := 0; var curColor := '9';
  for var i := 1 to S.Length do
    if curColor <> S[i] then
      begin
        Examen(curCount, curColor, maxCount, maxColor);
        curCount := 1; curColor := S[i];
      end
    else
      curCount += 1;
  Examen(curCount, curColor, maxCount, maxColor);
  System.IO.File.WriteAllText('output.txt', maxCount.ToString + #32 + maxColor);
end.

procedure Examen(curCount : Integer; curColor : Char;
          var maxCount : Integer; var maxColor : Char);
begin
  if (curCount > maxCount) or ((curCount = maxCount) and (maxColor > curColor)) then
    begin
      maxCount := curCount; maxColor := curColor;
    end;
end;
 
begin
  var S := System.IO.File.ReadAllText('input.txt');
  var fstCount := 0; var allChanges := -1; // Количество первых и сколько раз менялся цвет
  var maxCount := 0; var maxColor := '9';
  var curCount := 0; var curColor := '9';
  for var i := 1 to S.Length do
    if curColor <> S[i] then
      begin
        if allChanges = 1 then fstCount := curCount; // Количество первых
        allChanges += 1; // Смена цвета номер...
        
        Examen(curCount, curColor, maxCount, maxColor);
        curCount := 1; curColor := S[i];
      end
    else
      curCount += 1;
  if (allChanges > 0) and (S[1] = curColor) then curCount += fstCount; // Первый + последний, если цвета совпадают
  Examen(curCount, curColor, maxCount, maxColor);
  System.IO.File.WriteAllText('output.txt', maxCount.ToString + #32 + maxColor);
  WriteLn(maxCount.ToString + #32 + maxColor);
end.