Вводится строка произвольной длины. Определить количество одинаковых подряд стоящих символов. Вывести исходную строку и результат обработки — Pascal(Паскаль)

Program PascalGuru;

Var
  S: String; { описание переменных }
  I: Byte;
  C: Byte; { переменная кол-во }

Begin
  WriteLn('Введите строку символов: ');
  ReadLn(S); { ввод текстовой строки }

  C := 0; { обнуляем кол-во удвоенных }
  For I := 1 To Length(S) -
    1 Do { проход от начала строки до предпоследнего символа }
  Begin
    If S[I] = S[I + 1] Then { если текущий символ равен следующему }
    Begin
      If C = 0 Then { сначала выводим "Удвоенные символы в строке" }
        Write('Удвоенные символы в строке: ');
      Inc(C); { кол-во удвоенных увеличиваем на +1 }
      Write(S[I], ' '); { выводим текущий символы }
    End;
    { ---конец прохода }

  End;
  WriteLn; { ниже вывод результатов }
  WriteLn('Исходная строка: ', S);
  WriteLn('Число удвоенных символов в строке: ', C);
  ReadLn;

End.