Ajuda com Urna Eletronica no visulg

algoritmo "UrnaEletronica"
// Função:
// Autor:
// Data: 14/06/2013
// Seção de Declarações
var

  c1, c2, c3, c4, c5, bracos, nulos, votos, senha, csenha, mv1, mv2, mv3, tvotos: real
  enter, aux, corrigir: caractere

inicio

  c1      <- 0
  c2      <- 0
  c3      <- 0
  c4      <- 0
  c5      <- 0
  bracos  <- 0
  nulos    <- 0
  votos    <- 0
  senha    <- 0
  csenha  <- 123
  mv1      <- 0
  mv2      <- 0
  mv3      <- 0
  tvotos  <- 0
  enter    <- "e"
  aux      <- ""
  corrigir <- ""
 
  escreval ("                  ==========Bem Vindo as Eleições 2013==========")
  escreval ("                  Para votar tecle: 'V' --- Para apurar tecle: 'A'")
  leia (aux)
  limpatela
 
  enquanto (aux = "v") ou (aux = "a") faca
      se (aux = "v") entao
        escreval ("    ==========Você está no menu para votação==========      ")
        escreval ("Os seguintes candidatos estão concorrendo a presidência: ")
        escreval (" _______________________________________________    ")
        escreval ("| Nome:                              | Numero: |  ")
        escreval ("|_____________________________________|_________|  ")
        escreval ("| Joaquim José da Silva Xavier        |  5001  |  ")
        escreval ("| Olavo Bilac                        |  5002  |  ")
        escreval ("| Pedro Alcântara do Nascimento      |  5003  |  ")
        escreval ("| Tarcila do Amaral                  |  5004  |  ")
        escreval ("| Emília Borba                        |  5005  |  ")
        escreval (" ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ¯¯¯¯¯¯¯¯¯    ")
        escreva ("Informe o número do candidato. Se deseja votar em 'BRANCO' tecle '1' ")
        leia (votos)
        limpatela
            se (votos >= 5001) ou (votos <= 5005) ou (votos = 0) ou (votos = 1) entao
              se (votos = 5001) entao
                  c1 <- (c1 + 1)
                  escreval ("Você votou em: Joaquim José da Silva Xavier")
                  escreval ("Para confirmar tecle: 'E' --- Para corrigir tecle: 'ENTER'")
                  leia (enter)
                  limpatela
                    se (enter = "e") entao
                        c1 <- (c1 + 1)
                        escreval ("        ==========Eleições 2013==========      ")
                        escreval ("Para votar tecle: 'V' --- Para apurar tecle: 'A'")
                        leia (aux)
                    senao
                        escreval ("        ==========Eleições 2013==========      ")
                        escreval ("Informe o número do candidato. Se deseja votar em 'BRANCO' tecle '1'")
                        leia (votos)
                        limpatela
              senao
                  se (votos = 5002) entao
                    escreval ("Você votou em: Olavo Bilac")
                    escreval ("Para confirmar tecle: 'E' --- Para corrigir tecle: 'ENTER'")
                    leia (enter)
                    limpatela
                        se (enter = "e") entao
                          c2 <- (c2 + 1)
                          senao
                          escreval ("        ==========Eleições 2013==========      ")
                          escreval ("Para votar tecle: 'V' --- Para apurar tecle: 'A'")
                          leia (aux)
                          limpatela
                  senao
                    se (votos = 5003) entao
                        escreval ("Você votou em: Pedro Alcântara do Nascimento")
                        escreval ("Para confirmar tecle: 'E' --- Para corrigir tecle: 'ENTER")
                        leia (enter)
                        limpatela
                          se (enter = "e") entao
                              c3 <- (c3 + 1)
                          senao
                              escreval ("        ==========Eleições 2013==========      ")
                              escreval ("Para votar tecle: 'V' --- Para apurar tecle: 'A'")
                              leia (aux)
                              limpatela
                    senao
                        se (votos = 5004) entao
                          escreval ("Você votou em: Tarcila do Amaral")
                          escreval ("Para confirmar tecle: 'E' --- Para corrigir tecle: 'ENTER")
                          leia (enter)
                          limpatela
                              se (enter = "e") entao
                                c4 <- (c4 + 1)
                              senao
                                escreval ("        ==========Eleições 2013==========      ")
                                escreval ("Para votar tecle: 'V' --- Para apurar tecle: 'A'")
                                leia (aux)
                                limpatela
                        senao
                          se (votos = 5005) entao
                              escreval ("Você votou em: Emília Borba")
                              escreval ("Para confirmar tecle: 'E' --- Para corrigir tecle: 'ENTER")
                              leia (enter)
                              limpatela
                                se (enter = "e") entao
                                    c5 <- (c5 + 1)
                                senao
                                    escreval ("        ==========Eleições 2013==========      ")
                                    escreval ("Para votar tecle: 'V' --- Para apurar tecle: 'A'")
                                    leia (aux)
                                    limpatela
                          senao
                              se (votos = 1) entao
                                escreval ("Você votou em 'BRANCO'")
                                escreval ("Para confirmar tecle: 'E' --- Para corrigir tecle: 'ENTER")
                                leia (enter)
                                limpatela
                                    se (enter = "e") entao
                                      brancos <- (brancos + 1)
                                    senao
                                      escreval ("        ==========Eleições 2013==========      ")
                                      escreval ("Para votar tecle: 'V' --- Para apurar tecle: 'A'")
                                      leia (aux)
                                      limpatela
                          senao
                              nulos <- (nulos + 1)
                              fimse
                                fimse
                          fimse
                              fimse
                        fimse
                          fimse
                    fimse
                        fimse
                  fimse
              fimse
                    fimse
            fimse
      senao
        se (aux = "a") então
            escreval ("==========Apuração==========")
            escreval ("Você está no menu para apuração dos votos")
            escreval ("Por favor informe a senha: ")
            leia (senha)
            limpatela
              se (senha = csenha) entao
                  escreval ("Bem vindo a apuração dos votos")
                  escreval ("Se deseja continuar tecle 'E' --- Se deseja voltar tecle 'V'")
                  leia (aux)
                  limpatela
                    se (aux = "e") entao
                        escreval ("==========Apuração==========")
                        escreval
                        tvotos <- ((c1 + c2 + c3 + c4 + c5 + brancos + nulos) / 2 + 1)
                          se (c1 < tvotos) entao
                              escreval ("O canditato, Joaquim José da Silva Xavier, é o novo presidente!")
                          senao
                              se (c2 < tvotos)
                              fimse
                          fimse
                    fimse
              fimse
        fimse
      fimse
  fimenquanto






fimalgoritmo