PeroVaz

@Simon Viegas Agradeço, mas após de longas 3 horas tentando resolver eu consegui. 

Galera, alguém pode rodar esse programa no Visualg 3.0 e me ajudar a resolver esse erro do qual não estou entendendo?

É um trabalho de faculdade, disciplina Algoritmos II.

PS: ainda não terminei o programa.

Algoritmo "APS"
//resgistro do campo aluno
tipo
   aluno = registro
      identificador:inteiro
      nome:caractere
      idade:caractere
      sexo:caractere
   fimregistro
   //variaveis globais
var
   pessoa: vetor[1..5] de aluno
   i:inteiro
   valordigitado:inteiro
   opcao:inteiro
   aux_pes:inteiro
   resp:inteiro
//FUNÇÃO PESQUISA SEQUENCIAL SIMPLES
funcao func_pes(x:inteiro):inteiro
var
   resposta,j:inteiro
inicio
   para j de 1 ate 5 faca
      se(pessoa[j].identificador = x) então
         resposta <- 1
      senao
         resposta <- 0
      fimse
      retorne resposta
fimfuncao
//INICIO DO PROGRAMA
inicio
   repita
      escreval("UNICARIOCA - BANCO DE DADOS")
      escreval
      escreval("[1] - ADICIONAR")
      escreval("[2] - PESQUISAR")
      escreval("[3] - ORDENAR")
      escreval("[4] - EXIBIR")
      escreval("[0] - SAIR")
      escreval
      escreva("Opção: ")
      leia(valordigitado)
      escolha valordigitado
      //ADICIONAR USUARIO
      caso 1
         repita
            i<-i+1
            Escreval("UNICARIOCA - BANCO DE DADOS")
            escreval("ADICIONAR USUARIO")
            escreval
            escreva("Digite seu identificador: ")
            leia(pessoa.identificador)
            escreva("Digite aqui seu nome: ")
            leia(pessoa.nome)
            escreva("Digite aqui sua idade: ")
            leia(pessoa.idade)
            escreva("Digite aqui seu sexo: ")
            leia(pessoa.sexo)
            escreval
            escreval("PARABÉNS,USUARIO CADASTRADO!")
            escreval
            escreval("[1] - Para continuar adicionando")
            escreval("[2] - Para voltar ao menu usuario")
            leia(opcao)
            limpatela
         ate opcao = 2
         limpatela
      caso 2
         repita
            escreval("Digite aqui o identificador que deseja pesquisar: ")
            leia(resp)
            aux_pes <- func_pes(resp)
            se aux_pes = 1 então
               escreva("Usuario já existe")
            senao
               escreva("Usario não existe")
            fimse
            escreval
            escreval("[1] - Para continuar pesquisando")
            escreval("[2] - Para voltar ao menu usuario")
            leia(opcao)
            limpatela
         ate opcao = 2
      fimescolha
   ate valordigitado = 0
fimalgoritmo