Portugol ex 35 – apenas compartilhar uma alegria

Devido estudar online não conhece ninguém que eu possa compartilhar uma conquista.
percebi no ex 35 que independente do total de homens ou mulheres o texto era sempre no plural, resolvi então pensar em como ter essa variação.
e consegui. fiquei mega feliz pois foi algo fora do que o professor pediu. meu programa esta diferente do que o professor fez na resolução, pq fiz esse programa depois da aula.

programa
{

funcao inicio()
{
inteiro tot,person=1,dl=0, al=0, fap=0, map=0 //tot total de pessoas cadastrada e pr é o peso de referência.
real pr,p
caracter sx

escreva(“{EXERCÍCIO 035 – Pessoas }”)
escreva( “\n Quantas pessoas vamos cadastrar? “)
leia (tot)
escreva (” Qual é o peso de referência (kg)? “)
leia (pr)
enquanto (person<=tot) { //person é a contagem de pessoas
escreva (“\n——————————————“)
escreva (“\n PESSOA “,person, ” de “,tot)
escreva (“\n——————————————“)
escreva (“\n Peso:”)
leia (p) //p é o peso da pessoa informada
escreva (“Sexo:”)
leia (sx)
se (p<=pr) {
escreva (“======= PESO DENTRO DO LIMITE (“,pr,”Kg) =====”)
dl++
}
senao {
escreva (“======= ACIMA DO LIMITE (“,pr,”kg) ===========”)
al++
}
se (sx==’M’ ou sx==’m’ e p>pr)
map ++// homens acima do peso
se (sx==’F’ ou sx==’f’ e p>pr)
fap ++// mulheres acima do peso

person ++

} escreva (“\n————————————————“)
//dl e al pessoas dentro do peso e acima do peso
escreva (“\n Ao todo, temos “,al,” pessoas acima do limite de “,pr,”Kg)======”)
escreva (“\n E dessas pessoas “, map)
se ( map==1)
escreva(” é homem “)
senao
escreva (” são homens “)
escreva (“e “,fap)
se ( fap==1)
escreva(” é mulher “)
senao
escreva (” são mulheres “)

}
}