Подсчитать количество цифр в произвольной строке — Pascal(Паскаль)

Program string_20;

uses crt;

var
  s: string;
  kol, m: integer;
  i, nd: byte;

begin
  clrscr;
  write('введите произвольную строку ');
  readln(s);
  nd := 0;
  for i := 1 to length(s) do
    if s[i] in ['0' .. '9'] then
      inc(nd);
  writeln(nd);
  readln;

end.