Yo haria algo parecido a esto. Faltará parte del codigo (declaración de variables) y que hace tiempo que no programo en TurboPascal, pero es para que te hagas una idea ;)
Código:
PromedioPares := 0;
IF (Contador>0) THEN
PromedioPares := AcuPares/Contador;
writeln ('Promedio Numeros Pares: ', PromedioPares);
Es una buena práctica inicializar los variables al valor por defecto que tendrian que tener. Tu, por defecto, siempre partes de que no tienes numeros pares/impares y por tanto el promedio inicial es 0.
Luego, la segunda "mejora" consiste en actualizar la variable solo cuando es necesario, es decir, solo cuando el contador es > 0.
Por ultimo, utilizas un unic WriteLn para escribir el promedio, independientemente del valor.