Программа ПаскальПользователь вводит число. Вывести на экран сколько раз в числе

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 gt;= n;
  Writeln('Количество повторений "23" одинаково ', k)
end.

Тестовое решение:
Введите число: 546423452323023
Количество повторений "23" одинаково 4