Программа Паскаль

Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 23

Var

s: string;

i, n, k: integer;

begin

Write ('Введите число: ') ; Readln (s) ;

k : = 0; n : = Length (s) ; i : = 1;

repeat

if s[i] + s[i + 1] = '23' then begin k : = k + 1; i : = i + 2 end

else i : = i + 1

until i > = n;

Writeln ('Количество повторений "23" равно ', k)

end.

Тестовое решение:

Введите число: 546423452323023

Количество повторений "23" равно 4