Algoritmo en Pascal Numeros Pares e Impares

[locodemente]

Bueno antes que nada buenas noches.
Les comento mi problema, en el terciario (analista de sistema) me dijeron que resuelva este ejercicio:

1) Dada una lista N de Numeros Enteros calcular el promedio de los numeros Pares y el promedio de los impares.

Como es mi primer año, me resulta dificil programar, aplique todos mis conocimientos y despues de 5 horas pude hacerlo funcionar pero tiene un bug o error, que no se como solucionar:

Bueno estaba usando el geany e hice este codigo:

Program PromedioParesImpares (input,output);

VAR
AcuPares, AcuImpares:Real;
I, N, Num:Integer;
Contador, Contador2:Integer;
Begin

AcuPares:=0;
Contador:=0;
AcuImpares:=0;
Contador2:=0;
I:=1;

write ('Ingrese el conjunto de Numeros Naturales: ');
read (N);

FOR I:=1 TO N DO

begin
Write ('Ingrese el numero: ');
Readln (Num);

IF (NUM MOD 2=0) then
AcuPares:= AcuPares + Num; //Acumulador Numeros Pares//
IF (NUM MOD 2=0) then
Contador:= Contador +1; //Contador Numeros Impares//
IF (NUM MOD 2=1) then
AcuImpares:= AcuImpares + Num; //Acumulador Numeros Impares//
IF (NUM MOD 2=1) then
Contador2:= Contador2 +1; //Contador Numeros Impares//

end;

Writeln;
writeln ('Promedio Numeros Pares: ',AcuPares/Contador:0:2);
writeln;
writeln ('Promedio Numeros Impares: ',AcuImPares/Contador2:0:2);

END.


Realice la "prueba de escritorio y funciona bien", el problema ocurre cuando ingreso solo numeros pares; me sale este error:

http://fotos.subefotos.com/ed7c3aca26a07586ea853f27ce8e5a64o.png


]Y lo mismo ocurre cuando solo ingreso numeros impares:[/color]

http://fotos.subefotos.com/87210fc128f1974d58e03bb3854aa008o.png

Cuando ingreso numeros pares e impares el programa funciona bien xD.

http://fotos.subefotos.com/469a9031b911c24fca63b2e1b345dfb8o.png

Bueno algun consejo me servira mucho para poder terminarlo, nose si el codigo esta bien, pero para mi es un buen paso para poder empesar,