Составьте программу которая подсчитывает количество цифр в строке(коды цифр от 48 до 57)

Var s: string;
    i,n: integer;
begin
   n:=0;
   write('строка: ');  readln(s);
   for i:=1 to length(s) do 
     if ord(s[i]) in [48..57] then inc(n);
   writeln(n);
end.

строка: абвг12де0124уст
6