Lista 25 out. 7

Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações:

Idade
Peso
Sexo

Este programa deve fornecer como saída:
a) A média dos pesos dos homens;
b) A média das idades das mulheres;
c) Quantas mulheres acima de 25 anos;

algoritmo "25 Outubro 7 Homens e mulheres"
// Função :
// Autor : Gustavo Ferreira
// Data : 15/10/2010
// Seção de Declarações
var
   quantidadeHomens,quantidadeMulheres,idadeMulheres,idade,mulheresAcima25Anos,n:inteiro
   pesoHomens,peso:real
   sexo:caracter
inicio
   idade<-1
   quantidadeMulheres<-0
   pesoHomens<-0
   escreval("Informe a quantidade de pessoas entrevistadas:")
   leia(n)
   se (n > 5) entao
      para n de n ate 1 passo -1 faca
         escreva("Informe o sexo: ")
         leia(sexo)
         se (sexo = "M") entao
            quantidadeHomens<-quantidadeHomens +1
            escreva("Informe o peso do homem: ")
            leia(peso)
            pesoHomens<- pesoHomens + peso
            escreva("Informe a idade do homem: ")
            leia(idade)
         senao
            quantidadeMulheres<-quantidadeMulheres +1
            escreva("Informe o peso da mulher: ")
            leia(peso)
            escreva("Informe a idade da mulher: ")
            leia(idade)
            idadeMulheres<- idadeMulheres + idade
            se (idade > 25) entao
               mulheresAcima25Anos<- mulheresAcima25Anos + 1
            fimse
         fimse
      fimpara
      escreval()
      escreval("Media de idade das mulheres:",idadeMulheres/quantidadeMulheres)
      escreval("Peso medio dos homens:",pesoHomens/quantidadeHomens)
      escreval("Quantidade mulheres acima de 25 anos: ",mulheresAcima25Anos)
   senao
      escreval("Numero de pessoas insuficiente!")
   fimse
fimalgoritmo