Anna Vic

Me ajudem a resolver os erros por favor

algoritmo "Cadastro e Busca de Funcionarios"
// Função :Cadastro e Busca de Funcionarios
// Autor :
// Data : 18/05/2019
// Seção de Declarações 
var
nomes:vetor[0..4] de caractere
salarios:vetor[0..4] de real
cargos:vetor[0..4] de caractere
i,j,s:inteiro

procedimento inicializa()

inicio
enquanto op<>"3" faca
escreval ("----------------------------------------")
escreval ("                 menu                   ")
escreval ("----------------------------------------")
escreval("(1)Cadastrar funcionário")
escreval("(2)Buscar funcionário")
escreval("(3)Sair")
escreva("Opção:")
leia(op)
se op="1" entao
limpatela
se s=10 entao
escreval("Esgotou o limite de cadastros")
senao
cadastra_funcionario()
fimse
fimse
se op="2" entao
limpatela
buscar_funcionario()
fimse
se op="3" entao
para i de 0 ate 4 faca
nomes<-"x"
fimpara
limpatela
escreval("Obrigado!,volte sempre!")
fimse
fimenquanto
fimprocedimento

procedimento cadastra_funcionario()
inicio
para i de 0 ate 4 faca
se (nomes[1]="") entao
escreva("Nome:")
leia(nomes)
escreva("Salario:")
leia(salario)
escreva("Cargo:")
leia(cargos)
voltar_menu()
i<-i+1
limpatela
fimse
fimpara
escreval("Esgotou o limite de cadastros")
fimprocedimento

procedimento voltar_menu()
inicio
escreval("Voltar para o menu (S/N)?")
leia(op)
se op="S" entao
i<-i+1
limpatela
inicializa()
senao
limpatela
cadastra_funcionario()
fimse
fimprocedimento

procedimento buscar_funcionario()
inicio
j<-0
escreva("Digite o nome do funcionário:")
leia(nome)
para i de 0 ate 4 faca
se nome=nomes entao
escreval("nome:",nomes)
escreval("salario:",salarios)
escreval"cargo:",cargos)
j<-j+1
fimse
fimpara
se j=0 entao
escreval("Funcionario inexistente")
fimse
voltar_menu2()
limpatela
fimprocedimento

procedimento voltar_menu2()
inicio
escreva("Voltar para o menu (S/N)?")
leia(op)
se op="S" entao
limpatela
inicializa()
senao
limpatela
buscar_funciorario()
fimse
fimprocedimento

inicio
inicializa()

//Complemente com o código dos exercicio 1 a 3

fimalgoritmo