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