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

//Pascal ABC.Net
Var s:string;k:byte;
Begin
read(s);
for i:=1 to length s do
case s[i] of
'1','2','3','4','5','6','7','8','9','0': k+=1;
end;
writeln (k);
End.