Rafael Cipriano da Silva

A biblioteca de Texto especificamente a função posicao_texto(), me retorna a posição do caracter que eu preciso em um número inteiro. Mas como eu faço para que escreva o nome com o caracter desejado?

O meu programa só exibe o nome dos dois sexos no resultado final se eu tiver três opções para o mesmo sexo!
Então se eu tiver 2 mulheres e 3 homens ele exibe o homem jovem e o homem velho mas, não exibe o nome da primeira mulher só o da segunda!

O que eu posso estar revendo? Sendo que usei a mesma lógica para todas as verificações!

programa
{
	
	funcao inicio()
	{
		//Declaração de variáveis para as estruturas de controle
		inteiro C = 1, P = 1, IDADE
		cadeia NOME, SEXO
		
		//Declaração de variáveis do resultado
		cadeia MULHER_JOVEM = "",
			  MULHER_VELHA	= "",
			  HOMEM_JOVEM	= "",
			  HOMEM_VELHO	= ""
			  
		inteiro IDADE_MULHER_JOVEM	= 0,
			   IDADE_MULHER_VELHA	= 0,
			   IDADE_HOMEM_JOVEM	= 0,
			   IDADE_HOMEM_VELHO	= 0
		
		escreva("{ EXERCÍCIO 038 - Analisando idades }\n")

		enquanto(C <= 5) {
			escreva("================\n")
			escreva(P, "° PESSOA\n")
			escreva("NOME: ")
			leia(NOME)
			escreva("IDADE: ")
			leia(IDADE)
			escreva("SEXO[M/F]: ")
			leia(SEXO)
			escreva("================\n")

			se(C == 1) {
				IDADE_MULHER_JOVEM	= IDADE
				IDADE_MULHER_VELHA	= IDADE
				IDADE_HOMEM_JOVEM	= IDADE
				IDADE_HOMEM_VELHO	= IDADE
			}
			se(SEXO == "F" e IDADE < IDADE_MULHER_JOVEM) {
				IDADE_MULHER_JOVEM = IDADE
				MULHER_JOVEM = NOME
			}
			se(SEXO == "F" e IDADE > IDADE_MULHER_VELHA) {
				IDADE_MULHER_VELHA = IDADE
				MULHER_VELHA = NOME
			}
			se(SEXO == "M" e IDADE < IDADE_HOMEM_JOVEM) {
				IDADE_HOMEM_JOVEM = IDADE
				HOMEM_JOVEM = NOME
			}
			se(SEXO == "M" e IDADE > IDADE_HOMEM_VELHO) { 
				IDADE_HOMEM_VELHO = IDADE
				HOMEM_VELHO = NOME
			}
			C++
			P++
		}

		//Resultado
		escreva("A mulher mais jovem é a ", MULHER_JOVEM, " que tem ", IDADE_MULHER_JOVEM, " anos.\n")
		escreva("A mulher mais velha é a ", MULHER_VELHA, " que tem ", IDADE_MULHER_VELHA, " anos.\n")
		escreva("O homem mais jovem é o ", HOMEM_JOVEM, " que tem ", IDADE_HOMEM_JOVEM, " anos.\n")
		escreva("O homem mais velho é o ", HOMEM_VELHO, " que tem ", IDADE_HOMEM_VELHO, " anos.\n")
		
	}
}