Calcular Altura por Genero

[Guest --jefferson --]

Tem-se um conjunto de dados contendo a altura e o sexo (m – masculino, f – feminino) de 50 pessoas. Fazer um algoritmo que calcule e escreva:

- a maior e a menor altura do grupo

- a média das alturas das mulheres

- o número de homens

eu preciso fazer esse algoritmo em portugol usando procedimentos quem pode me ajudar eu agradeço...

em pessoal por favor me ajudem eu passei o dia tdo aq tentanto + não conseguir fazer ele

eu fiz até aq + pareei e não sei como fazer o resto

Programa ex.Genero
Var AltMax,altMin,Alt,MaxaltF,NumF,NumM,Totalalt : Real
       Genero : Inteiro
Procedimento : GeneroF
Inicio

so q eu fiquei com duvida de o que eu tem q fazer primeiro se é p/ digitar as alturas ou fazer igukla esse

var g,f,m,cont,h,h1,h2,h3,media:real
sexo:carater
procedimento contador
inicio
         con=0
         h1=0
         h2=0
fim
procedimento leitura maior e menos
inicio
         enquanto(cont<50),faça
            leia(sexo)
            leia(h)
            se((h>h1e sexo=m)
                  então
                  m=m+1
                  h1=h
                  g=sexo
            fimse
se(h>h2 e sexo = f)
então
h2=h
f=h3+h2
h3=f
g=sexo
se não
exiba('dados incorretos')
fimse
fimenquanto
fim

procedimento calculo media
inicio
media=h3/(50-(m))
fim

procedimento exibir
inicio
exiba('a maior pessoa do grupo é' ,g,'h1')
exiba('a menor pessoa do grupo é', g,'h2')
exiba('a media da altura das mulheres é ',media)
exiba('quantidade de homens no grupo é ',m)
fim
inicio
contador
leitura maior e menor
calculo media
exibir
fim

sei la me ajudem como eu faço isso...