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

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

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

program u17z3;
var s: string;
    i,n: integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
      n:=n+1;
  end;
  write('Chicel= ',n);
  readln;
end.