Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран:а)количество считанных десятичных цифр; б)количество четных цифр;в)количество нечетных цифр;

Var
  i,n,x,y,z:integer;
  s:string;
begin
readln(s);
for i:=1 to length(s) do
  if (47  begin
  n:=StrToInt(s[i]);
  case n of  0..9:
     begin
     x:=x+1;
     if n mod 2=0 then y:=y+1 else z:=z+1
     end
   end
   end;
writeln(Число цифр: ,x,; четных цифр: ,y,; нечетных цифр: ,z)
end.