Vetor de Nome e Idade

[leo20 0]

Ola pessoal do Imasters, estou com dificuldade nesse algoritmo: Faça um programa que permita ao usuario informar os nomes e idades de 5 pessoas e liste os 5 nomes e idades, do mais novo ate o mais velho. Só consigo o começo o final estou tendo problemas. Se vocês poderem me ajudar, olha o fonte ai, alguma coisa esta errada!

algoritmo "ordena"
var
  N:vetor[1..5] de caractere
  b,a,x:inteiro
inicio
  escreval("informe os nomes e a idade:")
  para x de 1 ate 5 faca
       escreva(x,"°Nome e a idade:")
       leia(n[x])
       fimpara
  para b de 4 ate 1 passo -1 faca
       para x de 1 ate b faca
            se n[x] > n[x+1] entao
               a <- n[x]
               n[x] <- n[x+1]
               n[x+1] <-a
             fimse
            fimpara
           fimpara
  para x de 1 ate 5 faca
   escreva(x,"º Nome e idade:")
   escreval(n[x])
  fimpara
fimalgoritmo

[quitZAUMMM 18]

Você pode usar registros?

seu modo de leitura você tem ctz q esta certo?

 

[]s