Ayuda con otro programa

Primero que nada quisiera agradecerte por el programa anteriory saber si me puedes ayudar en lo siguiente:
Tengo una duda con un programa lo que pasa es que se me pide un programa en que ingrese algunas preguntas, dentro de las cuales esta el sexo, si es masculino me muestre la cantidad de varones y el promedio de edad de estos y lo mismo para las mujeres. El problema esta en que no se hacer la diferencia para hombres y mujeres. Aquí te va el programa para que me lo revises. Gracias
program curso_por_sexo;
uses
wincrt;
var
nom:string[20];
edad,cant1,cant2,cant,sum1,sum2:real;
resp,sexo:char;
prom1,prom2:real;
begin
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' then
begin
cant1:=cant1+1;
sum1:=sum1+edad;
end
else
cant2:=cant2+1;
sum2:=sum2+edad
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);
end.