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

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.