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

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.