Visualg Driver registration system

Question

I need a system that registers 6 people containing (NAME, CPF, ADDRESS, DATE OF BIRTH and CATEGORY) and validate whether or not you can get a license. but there should be a menu where I can register, modify user information and delete the user.

Algoritmo "habilitação"


tipo
   cadastro = registro
      nome, cpf, endereco,  categoria: caractere
      dia, mes, ano, DataNascimento: inteiro
   fimregistro



Var
   i: inteiro
   cadastros: vetor [0..5] de cadastro
   menu: inteiro
   m, digito: inteiro
   mudanca: caractere
  d: inteiro
   delete: caractere




Inicio



   enquanto (menu <> 5) faca

      escreval
      escreval("..BEM VINDO AO NOSSO SISTEMA DE HABILITAÇÃO..")
      escreval("(1) Para se cadastrar")
      escreval("(2) Para alterar Cadastro")
      escreval("(3) Para excluir Cadastro")
      escreval("(5) para encerrar o programa")
      leia(menu)
      escolha (menu)
      caso 1
         escreval
         escreval("Digite o seu nome")
         leia(cadastros[i].nome)
         escreval
         escreval("Digite o seu CPF")
         leia(cadastros[i].cpf)
         escreval
         escreval("Digite o seu Endereço")
         leia(cadastros[i].endereco)
         escreval
         escreval("Digite a categoria desejada")
         leia(cadastros[i].categoria)
         escreval
         escreval("Digite  sua Data de Nascimento sem uso de  caractere: ")
         leia (cadastros[i].DataNascimento)
         cadastros[i].Dia <- (cadastros[i].DataNascimento div 1000000)
         cadastros[i].Mes <- (cadastros[i].DataNascimento mod 1000000) div 10000)
         cadastros[i].Ano <- (cadastros[i].DataNascimento mod 1000000) mod 10000)
         escreval ("Sua data de nascimento é: ", cadastros[i].Dia, "/",  cadastros[i].Mes, "/", cadastros[i].Ano)

         se (cadastros[i].Ano > 2003) entao
            escreval ("USUÁRIO CADASTRADO COM SUCESSO")
            escreval
            escreval ("Não está apto para habilitação")

         senao
            escreval("USUÁRIO CADASTRADO COM SUCESSO")
            escreval ("Está apto para habilitação")

         fimse


         i <- i + 1


      caso 2

         m <- 0
         escreval
         escreval("Digite o nome do usuário que queira alterar o dado")
         leia(mudanca)
         limpatela()

         para i de 0 ate 5 faca
            se (mudanca= cadastros[i].nome) entao
               escreval("SELECIONE A OPÇÃO DESEJADA PARA ALTERAÇÃO:")
               escreval("(1) para NOME")
               escreval("(2) para CPF")
               escreval("(3) para Data de Nascimento")
               escreval("(4) para Categoria")
               leia(digito)

            fimse
         fimpara


         se (digito= 1) entao
            escreval("Digite o novo nome desejado: ")
            leia(cadastros[i].nome)
            escreval
            escreval(" Nome alterado com sucesso")
            m <- 1
         fimse

         se (m= 0) entao
            escreval("Infelizmente não encontramos o usuário em nosso banco  de dados")

         fimse



         se (digito = 2) entao
 m <- 0
             escreval("Digite o novo CPF desejado: ")
            leia(cadastros[i].cpf)
            escreval
            escreval("CPF alterado com sucesso")
            m <- 1
         fimse

         se (m= 0) entao
            escreval("Infelizmente não encontramos o usuário em nosso banco de dados")
         fimse


    caso 3
d<- 0
  escreval("Informe o nome do usuário que queira deletar do sistema")
  leia(delete)
  
para i de 0 ate 5 faca
  se (delete= cadastros[i].nome) entao
    cadastros[i].nome <- ""
   escreval("O NOME INFORMADO FOI EXCLUIDO COM SUCESSO")
     d<- 1
   fimse
   fimpara

    se(delete= 0) entao
      escreval("o nome ", delete, " pesquisado não se encontra no banco de dados")
   fimse

         fimescolha
      fimenquanto


Fimalgoritmo