Pascal/Turbo Pascal - Numeros pares, Recursividad!!

Hola, tengo que hacer un programa que lea un numero y diga cuantos digitos pares hay en ese numero. El programa lo he hecho de forma normal, ahora tengo que hacerlo con recursividad, y lo he que escrito es lo siguiente:

program digpares;
uses crt;
var
dato:integer;
function npares(n:integer):integer;
var

begin

if (n and 1)<>0 then
npares:=0
else
npares:=npares(n div 10) +1;

end;

begin
clrscr;
writeln('Introduzca un numero: ');
read(dato);
writeln('Numeros pares: ',npares(dato));
readkey;
end.

No esta del todo bien, porque a veces no dice bien el numero de digitos pares. ¿Alguien puede ayudarme? Gracias.

Cambia la condición dentro de la función "npares":
if (n<10) then
Begin
if (n mod 2)=0 and (n>1) then
npares := 1
else
npares := 0;
End
else
npares := npares(n div 10) + npares(n mod 10);

Saludos ;-)