Solução do Exercicio de logica 2 de arrays

algoritmo "listagem de pessoas"
// Função :
// Autor : JorgeFox
// Data : 17/01/2012
// Seção de Declarações
var
nome,sexo: vetor[0..4] de literal
idade: vetor[0..4] de inteiro
i:inteiro
inicio
// Entrada de Dados
i<-0
para i de 0 ate 4 faca
   escreval("Nome   : ")
   leia (nome[i])
   escreval("Sexo   : ")
   leia (sexo[i])
   escreval("Idade  : ")
   leia(idade[i])
   i<-i+1
fimpara
//processamento e saida
limpatela
escreva("------ idades maior que a primeira -----")
para i de 1 ate 4 faca
   se idade[0]<idade[i] entao
      escreval(nome[i]," - ",sexo[i]," - ",idade[i])
   fimse
fimpara
escreva("------ todos homens menores 21 anos -----")
para i de 1 ate 4 faca
   se (idade[i]<21) e (sexo[i]="M") entao
      escreval(nome[i])
   fimse
fimpara
escreva("------ todas mulheres--")
para i de 1 ate 4 faca
   se ( (sexo[i]="F") entao
      escreval(nome[i]," - ",sexo[i]," - ",idade[i])
   fimpara
fimalgoritmo