Программа Паскаль Пользователь вводит число. Вывести на экран сколько раз в числе встречаются подряд идущие цифры 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