Ejercicio en dev-pascal con WHILE - promedio

Ejercicio en dev-pascal con WHILE

Hacer un programa usando WHILE que te pregunte la cantidad de personas que hay en un lugar cualquiera y que luego te diga cuantos años tiene y cuál es su género, para que después el mismo programa creado te diga el promedio de hombres (si es que los hay), el promedio de mujeres (si es que las hay) y el promedio de edad que se tiene en ese lugar establecido.

program ciclo;

var

promedio,pm,ph:Real;

m,j,edad,tm,th:real;

acum:real;

genero:char;

procedure conocerm;

begin

writeln('cantidad de personas:?');

readln(m);

end;

procedure procesarpersonas;

begin

j:=0; acum:=0; tm:=0; th:=0;

while(j<m)do

begin

writeln('edad:?');

readln(edad);

writeln('genero:?');

readln(genero);

acum:=acum+edad;

if((genero='m')or(genero='M'))then

tm:=tm+1;

if((genero='h')or(genero='H'))then

th:=th+1;

j:=j+1;

end;

if(m<>0)then

begin

promedio:=acum/m;

pm:=(tm*100)/m;

ph:=(th*100)/m;

end;

end;

procedure mostrarresultados;

begin

if(tm<>0)then

writeln('promedio de mujeres es:?',pm :0:2);

if(th<>0)then

writeln('promedio de hombres es:?',ph :0:2);

if(acum<>0)then

writeln('promedio de edad es:?',promedio :0:2);

end;

begin

conocerm;

procesarpersonas;

mostrarresultados;

readln;

end.