Дана строка S. Подсчитать в ней наибольшее количество идущих подряд цифр (для решения задачи использовать множества) — Pascal(Паскаль)

const
  Digits: set of char = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];

var
  s: string;
  MaxN, CurN, i: longint;

begin
  WriteLn('Введите строку: ');
  Readln(s);
  MaxN := 0;
  CurN := 0;
  for i := 1 to length(s) do
    if s[i] in Digits then
      Inc(CurN)
    else
    begin
      if CurN > MaxN then
        MaxN := CurN;
      CurN := 0;
    end;

  WriteLn('Наибольшее количество идущих подряд цифр: ', MaxN:1)

end.