Pascal/Turbo Pascal - help otro programa!

Help again, otro prog q no me anda :(.
porq la funcion q hice siempre me devuelve 0 ?
muchas gracias!!!!!!!!!!!! :)

Program Euler;
Type
mitipo=integer;
Var
num:mitipo;
Procedure Cargar (var num:mitipo);

Begin
Writeln ('Ingrese Numero');
Readln (num);
End;

Function EsPrimo(num:mitipo):mitipo;

Var
primo:boolean;
aux:mitipo;
j,i:mitipo;
Begin
aux:= 0;
primo:=true;
i:=2;
For j:= num downto 1 do
Begin

While( i<num) and ( primo) do
Begin
if num mod i = 0 then
primo:= not primo;
i:=i+1;
End;

if primo then
aux:=aux+1;

End;

Esprimo:=aux;

End;

Begin
Cargar (num);
Writeln ('resultado',esprimo(num));
read (num);
end.

En realidad no devuelve cero siempre, lo devuelve si y solo si el número ingresado como parámetro NO es primo. Por ejemplo si ingreso el 11, el 23 o el 7 me devuelve esos mismos números.

GRAX!