Определить количество одинаковых символов в последовательности - Pascal

Формулировка задачи:

2)Дана последовательность символов, в начале которой имеется некоторое количество одинаковых символов. Определить это количество.

Решение задачи: «Определить количество одинаковых символов в последовательности»

Листинг программы

var s:string;
    i:byte;
begin
writeln('Введите строку в начале которой несколько одинаковых символов');
readln(s);
i:=1;
while(i<length(s))and(s[i]=s[i+1]) do
i:=i+1;
write('k=',i);
end.

Объяснение кода листинга программы

Создается переменная s типа string для хранения введенной пользователем строки.
Создается переменная i типа byte, которая используется в цикле.
Выводится сообщение Введите строку в начале которой несколько одинаковых символов.
Введенная пользователем строка сохраняется в переменную s с помощью функции readln.
Устанавливается начальное значение переменной i равное 1.
Запускается цикл while, который продолжает выполняться пока переменная i меньше длины строки и символ в позиции i равен символу в позиции i+1.
Каждую итерацию цикла значение переменной i увеличивается на 1.
После завершения цикла выводится количество одинаковых символов в начале строки через write с сообщением k=.