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

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

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

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

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