Sistema de biblioteca

Sistema de biblioteca em Algoritmo. algoritmo "semnome"
// Função :
// Autor :
// Data : 20/04/2012
// Seção de Declarações var i:inteiro op,op1,op2,op3,op4,op5:inteiro nomeadmin,voltar:literal user,livro:vetor [1..5,1..4] de literal inicio // Seção de Comandos
// inicio do programa escreval ("======================================") escreval ("============== BEM VINDO =============") escreval ("================= A ==================") escreval ("========== BIBLIOTECA VIRTUAL ========") escreval ("") escreval (" como deseja se logar ? ") escreval (" 1 - Administrador ") escreval (" 2 - Usuario ") leia (op) se op=1 entao escreval ("digite seu nome") leia (nomeadmin) limpatela // inicio do sistema administrador ] voltar:= "menu" enquanto voltar = "menu" faca escreval (" ========== bem vindo " ,nomeadmin, " ===============") escreval ("") escreval (" o que deseja fazer?") escreval ("") escreval ("1 - Cadastro ") escreval ("2 - Alterar ") escreval ("3 - Excluir ") escreval ("4 - Consulta ") escreval ("5 - Renovar ") escreval ("6 - Emprestimo") escreval ("7 - Reservar ") escreval ("8 - Voltar ") escreval ("9 - Sair ") leia (op1) limpatela se op1=1 entao escreval (" o que deseja cadastrar?") escreval (" 1 - usuarios " ) escreval (" 2 - livros " ) leia (op2) limpatela fimse
// inicio cadastro de usuarios se op2=1 entao escreval ("quantos usuarios deseja cadastrar 1 a 5 ") leia (op3) limpatela fimse

se op3=1 entao escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ") leia (user[1,3]) escreval ("Digite o endereco: ") leia (user[1,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse

// fim cadastro 1 usuario se op3=2 entao escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ")
leia