¿Cómo puedo separar en hombres y mujeres en el programa que he creado?

Tu programa esta muy bien solo lo que debías de hacer es modificar un if, eso es lo que creo porque así funciona correcto en teoría la manera que tu la hiciste esta bien pero lo más conveniente seria que le hagas con los if independientes.. para más referencia mira el código si no lo entiendes no tienes más que preguntarme ok.. adiós..
program curso_por_sexo;
uses
crt;
var
nom:string[20];
edad,cant1,cant2,cant,sum1,sum2:real;
resp,sexo:char;
prom1,prom2:real;
begin
clrscr;
resp:='s';
cant1:=0;
cant2:=0;
sum1:=0;
sum2:=0;
while(resp='S') or (resp='s') do
begin
writeln('INGRESE EL NOMBRE DEL ALUMNO/A:');
readln(nom);
writeln('INGRESE LA EDAD DEL ALUMNO/A:');
readln(edad);
writeln('INGRESE EL SEXO DEL ALUMNO, (M/F)');
readln(sexo);
writeln('¿DESEA CONTINUAR INGRESANDO DATOS? : S/N ');
readln(resp);
if (sexo='m') or(sexo='M') then
begin
cant1:=cant1+1;
sum1:=sum1+edad;
end;
if (sexo='F') or(sexo='f') then
begin
cant2:=cant2+1;
sum2:=sum2+edad;
end;
end;
prom1:=sum1/cant1;
prom2:=sum2/cant2;
writeln('LA CANTIDAD DE ALUMNOS ES:',cant1:3:1);
writeln('LA EDAD PROMEDIO DE VARONES ES:',prom1:3:1);
writeln('LA CANTIDAD DE ALUMNAS ES:',cant2:3:1);
writeln('LA EDAD PROMEDIO DE DAMAS ES:',prom2:3:1);
readln;
end.
Espero que lo hayas entendido el problemas de esta página es que no hay como escribir textos largos bueno adiós y suerte.