Задача 3 Урок 16

Задача 3 Урок 16:

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
Подсказка: для определения принадлежности символа цифре используйте идею из этого кода.

var s: string;
  i, n: integer;
begin
    write('Введите произвольную строку: ');
    readln(s);
    for i:=1 to length(s) do
     if (s[i] >= '0') and (s[i] <= '9') then n += 1;
    writeln('В строке ', n , ' цифр');
    readln();
end.