Pascal/Turbo Pascal - Ayudita con un promedio plis :(

Tengo un problema con un ejercicio. Entiendo que no es dificil, pero como es la primera vez que veo Pascal se me está complicando... Necesito la ayuda de alguien!
La cosa es así: tengo que hacer un programa que cuando se le cargue una cantidad X de números enteros tiene que calcular lo siguiente:
a) cuántos valores 0 hubo
b) el promedio de los valores positivos (ahí es donde tengo el problema)
c) sumatoria de valores negativos
¿¿Quizás haya alguien que pueda ayudarme???

El promedio está definido como la sumatoria de los términos dividida la cantidad de términos usados, por ejemplo, si hay 10 términos en la sumatoria (se ingresan 10 números) debes sumarlos todos y luego dividir por 10.

un ejemplo:

var
I: integer;
Sum, N, Cant, Prom: real;

begin
Write('¿Cantidad de términos?: ');
ReadLn(Cant);
for i:=1 to Cant do
begin
Write('Ingrese el término ',i':');
ReadLn(N);
Sum:=Sum+N;
end;
Prom:=Sum / Cant;
WriteLn('El promedio es: ', Prom:5:2);
end.

Millones de gracias!!! Ya me pongo a ver si puedo resolver el ejercicio =)