Решение задачи №3 из главы 16. Посчитать количество цифр в строке

Задача №3

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

program pascal_string3;
var i,amt :integer;
    s : string;
begin
writeln('input  string  : ' );
readln( s );
amt := 0;
for i := 1 to length( s ) do
begin
  if( s[i] >= '0') and ( s[i] <= '9' ) then
    amt+=1;
end;  
writeln( 'amount digits in string : ' , amt ); 
end.