Pascal: Estrutura de repetição

[Malvin]

Olá,

Estou começando a aprender a programar em Pascal e estou com um problema numa certa questao, o comando dela é o seguinte:

Tem-se um conjunto de dados contendo a altura e o sexo (M e F) de 15 pessoas. Faça um programa que calcule e escreva:

- a maior e a menor altura do grupo

- a média de altura das mulheres

- o número de homens

Já consegui fazer o seguinte:

Program alturahomemmulher;
uses crt;
var alt, altmaior, altmenor, mam:real;
    sexo:char;
    i, cont, qtde_fem:integer;

Begin
    altmaior:=0.01;
    altmenor:=0.01;
    clrscr;
  for i:=1 to 15 do
      begin
        read (alt);
        read (sexo);
        
                If (alt>altmaior) and (sexo='F') then
        altmaior:= alt;
                m_alt_fem:= m_alt_fem + alt;
                qtd_fem:= qtd_fem+1;
        else
        if alt<altmenor then
        alt:=altmenor;
      end;
   write(altmaior);
   write(altmenor);
   if sexo='F' then
   write(alt);
   else sexo='M'
   write(

Não sei se estou estruturando corretamente, no entanto, minha maior duvida é com relação a elaboração do algoritmo pra responder a "média de altura das mulheres".

Quem puder me dar essa força agradeço desde já.

[raphael_suporte]

1º sua logica no "IF" está errada, pois a introdução pede a maior altura do grupo e no seu IF você pega a maior altura das mulheres....

2º separa o IF e verifica só se é mulher, caso seja some em uma variável o valor da altura e em outra a quantidade de mulheres inscritas, depois é só dividir um por outro