Написать программу подсчитывающую вол-во цифр в заданном числе.

Var 
i,a:integer; 
ch:set of char; 
n:string;
Begin 
Write('Введите число '); 
Readln(n); 
ch:=['0'..'9']; 
for i:= 1 to length(n) do   
 if n[i] in ch then a:=a+1; 
case a of 
1:Write('В числе ',a,' цифра'); 
2..4:Write('В числе ',a,' цифры') 
else Write('В числе ',a,' цифр'); 
End;
End.