Подсчитать количество цифр в строке. Задачу решить как минимум 2-мя способами.

var
  s: string;
  n: byte;

begin
  readln(s);
  foreach i: char in s do
    if (Char.IsDigit(i)) then
      n += 1;
  writeln(n);
end.
------------------------
var
  s: string;
  n: byte;

begin
  readln(s);
  for i: byte := 1 to length(s) do
    if (s[i] in ['0'..'9']) then
      n += 1;
  writeln(n);
end.