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

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