Não consigo terminar algoritmo no visualg

[Jenny Doss]

Olá, sou nova por aqui...

Então gente o problema é o seguinte: Eu fiz o meu algoritmo e deu certo só que eu não consigo terminá-lo. Esse é o algoritmo:

algoritmo "Média entre homens e mulheres"

// Função : Desenvolver um algoritmo que receba o peso, altura, idade e sexo de 5 pessoas. No final exibir o total de homens, o total de mulheres,

// média de peso dos homens, média de altura das mulheres, média de idade dos homens com peso >90Kg, média de idade das mulheres com altura >180cm.

// Autor : Jenifer 2TE TECNICO EM INFORMATICA

// Data : 22/02/2012

// Seção de Declarações

var

peso, altura, idade, media, aqtdm: real

c, qtdh, qtdm: inteiro

sexo, m, f : caracter

inicio

// Seção de Comandos

para c de 1 ate 5 faca

Escreva ("Peso da ", c, ". Pessoa: ")

Leia(peso)

Escreva ("Altura da ",c , ". Pessoa: ")

Leia(altura)

Escreva ("Idade da ",c , ". Pessoa: ")

Leia(idade)

Escreva ("Sexo da ",c, ". Pessoa: ")

Leia(sexo)

Se (sexo="m") então

qtdh <- qtdh + 1

senao

Se (sexo="f") então

qtdm <- qtdm + 1

fimse

fimse

fimpara

Escreval ("Total de homens..: ", qtdh)

Escreval ("Total de mulheres: ", qtdm)

media <- peso+pqtdh/qtdh

Escreval ("Média de peso dos homens: ", media)

media <- altura+aqtdm/qtdm

Escreval ("Média de altura das mulheres: ",media)

fimalgoritmo

Preciso calcular a média de idade dos homens com peso >90Kg e a média de idade das mulheres com altura >180cm mas não consigo.

Alguém podeira me ajudar?