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

var
  S: string;
  CountNumbers, i: byte;
begin
  write('Введите строку: '); readln(S);
  for i := 1 to Length(S) do
    if S[i] in ['0'..'9'] then CountNumbers := CountNumbers + 1;
  writeln('Количество цифр в строке = ', CountNumbers);  
end.