дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Требуется: Выяснить сколько в ней цифровых символов.- Pascal(Паскаль)

Uses
  CRT;

var
  i, kol: integer;
  s: string;

begin
  readln(s);
  kol := 0;
  for i := 1 to length(s) do
    if s[i] in ['0' .. '9'] then
      inc(kol);
  write(kol);

end.