Составьте программу позволяющую найти количество цифр во введённой строке s

Count:=0;
for i:=1 to Length(St) do if Ord(St[i]) in [48..57] then Inc(Count);
Writeln(Count);