Ajuda plis algoritmo de uma Biblioteca...

algoritmo "Biblioteca"
// Função :
// Autor :

var

//Criação das variaveis

livro, autor, editora, ano: vetor [1..10] de caracter
x: inteiro
opcao: inteiro

//criacao do menu de opções

procedimento MenuP

var
//não irei utilizar nenhuma var local neste procedimento.
inicio

Limpatela
Escreval (" ******************")
Escreval (" * MENU PRINCIPAL *")
Escreval (" ******************")
Escreval ("")
escreval ("#1 - Cadastrar #2 - Listar #3 - Buscar #4 - Sair")
Escreval ("")
Escreva ("Entre com a sua opção: ")
leia (opcao)
escolha opcao
caso 1
cadastro
caso 2
listar
caso 3
buscar
caso 4
Sair
outrocaso
MenuP
fimescolha

fimprocedimento

// Fim procedimento menu principal


//inicio do menu Cadastro.

procedimento cadastro

var

//não necessita utilizar nenhuma var local.

inicio

limpatela
Escreval ("")
Escreval (" *****************")
escreval (" * Cadastro Nº",x, " *")
Escreval (" *****************")
escreval ("")
escreva ("Nome do livro: ")
leia (livro[x])
escreva ("Nome do autor: ")
leia (autor[x])
escreva ("Editora: ")
leia (editora[x])
escreva ("Entre com o ano do livro: ")
leia (ano[x])
x <- x + 1
MenuP

fimprocedimento
// Fim procedimento Cadastro

// inicio do procedimento Listar
procedimento listar

var

i: inteiro
c: caracter

inicio

limpatela
Escreval (" ****************")
Escreval (" * LISTAR *")
Escreval (" ****************")
para i de 1 ate (x-1) faca
escreval ("Nome do livro : ", livro[i])
escreval ("Nome do autor : ", autor[i])
escreval ("Nome da editora : ", editora[i])
escreval ("Ano de puplicacao : ", ano[i])
escreval ("")
fimpara
escreval ("Pressione *|ENTER|* para continuar")
leia (C)
MenuP// chama o MENU PRINCIPAL

fimprocedimento
// Fim procedimento Listar

// Busca os registros

procedimento buscar

var

i, a : inteiro
busca, c : caracter

inicio

limpatela
Escreval (" ****************")
Escreval (" * BUSCAR *")
Escreval (" ****************")
escreva ("Entre com o nome do livro: ")
leia (busca)
a <- 0
para i de 1 ate (x - 1) faca
se livro[i] = busca entao
a <- i
fimse
fimpara
//inicio de impressão do livro.
se a> 0 entao
Escreval (" ***********************************")
Escreval ("Nome do livro : ", livro[a])
Escreval ("Nome do autor : ", autor[a])
Escreval ("Nome da editora : ", editora[a])
Escreval ("Ano de publicação : ", ano[a])
Escreval (" ***********************************")
Escreval ("")
senao
escreval ("O livro ", busca, " não foi encontrado em nosso banco de dados")
fimse
escreval ("Pressione *|ENTER|* para continuar")
leia (c)
MenuP

fimprocedimento
// Fim procedimento Buscar

//inicio do procedimento SAIR
procedimento sair

inicio
limpatela
fimprocedimento
//fim do procedimento SAIR


inicio
//*********
//atribuir valor para X
x<- 1
//*********


//MENU PRINCIPAL
MenuP

fimalgoritmo