VisualG Programa Biblioteca em VisuAlg

[Claudeilton Dantas]

Boa tarde, estou fazendo alguns exercícios para estudo e acabei me deparando com um que pede para criar um programa para gerenciar uma biblioteca, tentei fazer algo mais faz muito tempo que não utilizava o VisuAlg para estudo de algoritmos, quem puder dar alguma dica de ajuda:

parei ficando no modo excluir.

algoritmo "Biblioteca"
// Função :
// Autor :
var
   //Criação das variaveis
   cpf,nome,exclusao,endereco,livro, autor, editora, ano: vetor [1..20] de caracter
   telefone:vetor [1..20] de inteiro
   x,y,z: 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 livro")
   escreval ("#2 - Buscar livro ")
   escreval ("#3 - Listar livro")
   escreval ("#4 - Excluir livro")
   escreval ("#5 - Emprestar livro")
   escreval ("#6 - Devolver livro")
   escreval ("#7 - Cadastrar Leitor")
   escreval ("#8 - Buscar leitor")
   escreval ("#9 - Excluir leitor")
   escreval ("#10 - Sair")
   Escreval ("")
   Escreva ("Entre com a sua opção: ")
   leia (opcao)
   escolha opcao
   caso 1
      cadastrolivro
   caso 2
      buscarlivro
   caso 3
      listarlivro
   caso 4
      excluirlivro
   caso 5
      emprestarlivro
   caso 6
      devolverlivro
   caso 7
      cadastroleitor
   caso 8
      buscarleitor
   caso 9
      excluirleitor
   caso 10
      sair
   outrocaso
      MenuP
   fimescolha
fimprocedimento
// Fim procedimento menu principal

//inicio do menu Cadastro.
procedimento cadastrolivro
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 listarlivro
var
   i: inteiro
   c: caracter
inicio
   limpatela
   Escreval (" ****************")
   Escreval (" * LISTAR *")
   Escreval (" ****************")
   para i de 1 ate x faca
      escreval ("Nome do livro : ", livro)
      escreval ("Nome do autor : ", autor)
      escreval ("Nome da editora : ", editora)
      escreval ("Ano de puplicacao : ", ano)
      escreval ("")
   fimpara
   escreval ("Pressione *|ENTER|* para continuar")
   leia (C)
   MenuP// chama o MENU PRINCIPAL
fimprocedimento
// Fim procedimento Listar
// Busca os registros
procedimento buscarlivro
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 = busca então
         a <- i
      fimse
   fimpara
   //inicio de impressão do livro.
   se a> 0 então
      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 de excluir
procedimento excluirlivro
var
   i, a : inteiro
   busca, c : caracter
inicio
   limpatela
   Escreval (" ****************")
   Escreval (" * EXCLUIR*******")
   Escreval (" ****************")
   escreva ("Entre com o nome do livro a ser excluído: ")
   leia (busca)
   a <- 0
   para i de 1 ate (x-1) faca
      se livro = busca então
         a <- i
         x<-i
      fimse
   fimpara
   escreval (" Exclusão realizada com sucesso")
   escreval ("Pressione *|ENTER|* para continuar")
   leia (c)
   MenuP
fimprocedimento
// inicio do procedimento de cadastro de leitor
procedimento cadastroleitor
var
   //não precisa de nenhuma variavel local
inicio
   limpatela
   Escreval ("")
   Escreval (" *****************")
   escreval (" * Cadastro Nº",y, " *")
   Escreval (" *****************")
   escreval ("")
   escreva ("Nome do aluno: ")
   leia (nome[y])
   escreva ("CPF do aluno: ")
   leia (CPF[y])
   escreva ("Endereço: ")
   leia (endereco[y])
   escreva ("Telefone ")
   leia (telefone[y])
   y <- y + 1
   MenuP
fimprocedimento
// fim do procedimento de cadastro do leitor
// Busca os registros de alunos
procedimento buscarleitor
var
   i, a : inteiro
   busca, c : caracter
inicio
   limpatela
   Escreval (" ****************")
   Escreval (" * BUSCAR LEITOR*")
   Escreval (" ****************")
   escreva ("Entre com o nome do leitor: ")
   leia (busca)
   a <- 0
   para i de 1 ate (x-1) faca
      se nome = busca então
         a <- i
      fimse
   fimpara
   //inicio de impressão do livro.
   se a> 0 então
      Escreval (" ***********************************")
      Escreval ("Nome do Aluno : ", nome[a])
      Escreval ("CPF do Aluno : ", cpf[a])
      Escreval ("Endereço do Aluno : ", endereco[a])
      Escreval ("Telefone do Aluno : ", telefone[a])
      Escreval (" ***********************************")
      Escreval ("")
   senao
      escreval ("O Aluno ", busca, " não foi encontrado em nosso banco de dados")
   fimse
   escreval ("Pressione *|ENTER|* para continuar")
   leia (c)
   MenuP
fimprocedimento
procedimento excluirleitor
var
   i, a : inteiro
   busca, c : caracter
inicio
   limpatela
   Escreval (" ****************")
   Escreval (" * EXCLUIR*******")
   Escreval (" ****************")
   escreva ("Entre com o nome do leitor: ")
   leia (busca)
   a <- 0
   para i de 1 ate (x-1) faca
      se nome = busca então
         a <- i
      fimse
   fimpara
   //inicio de impressão do livro.
   se a> 0 então
      escreval (" Exclusão realizada com sucesso")
      escreval ("Pressione *|ENTER|* para continuar")
      leia (c)
      MenuP
fimprocedimento
//inicio do procedimento SAIR
procedimento sair
inicio
   limpatela
fimprocedimento
//fim do procedimento SAIR

inicio
   //*********
   //atribuir valor para X  e Y
   x<- 1
   y<- 1
   z<- 1
   //*********

   //MENU PRINCIPAL
   MenuP
fimalgoritmo