Alguém Pode Me dizer no que estou errando?

[Luis Felipe Reis 0]

Então pessoal, sou novo na área de algorítimos e estou usando a ferramenta VisualG. Estou desenvolvendo uma agenda telefônica, porém está dando um na estrutura de condição (se, senao).

 

algoritmo "semnome"
// Função :
// Autor :
// Data : 19/10/2018
// Seção de Declarações 
var
opcao,codigo, numero_logradouro,cep,data:Real
nome, logradouro, bairro, cidade, estado,contato: Caracter
inicio
// Seção de Comandos 
Escreval ("------------------------------")
Escreval ("Agenda Telefônica")
Escreval ("------------------------------")
Escreval ("Digite a opção que desejar:")
Escreval ("1-Para Incluir Novo Contato")
Escreval ("2-Para Pesquisar um contato")
Escreval ("3-Para Excluir Um Contato")
Escreval ("Esc- Encerrar o Prorama")
         Leia(opcao)
                    se opcao=1 entao
Escreval ("-----Incluir um novo contato-------")
Escreval ("Digite um código localizador:")
         Leia(codigo)
Escreval ("Digite o nome do contato:")
         Leia(nome)
Escreval ("Escreva o Logradouro:")
         Leia(logradouro)
Escreval ("Digite o número do Logradouro")
         Leia(numero_logradouro)
Escreval ("Digite o Bairro:")
         Leia(bairro)
Escreval ("Digite a Cidade:")
         Leia(cidade)
Escreval ("Digite O Estado:")
         Leia(Estado)
Escreval ("Digite O Cep")
         Leia(cep)
Escreval ("Digite a Data do Cadastro")
         Leia (data)
Escreval ("Cadastro Efetuado com Sucesso!")
         senao
              se opcao=2 entao
              Escreval("-------PESQUISA DE CONTATO---------")
Escreval("Digite o nome do contato ou código a ser Pesquisado:")
        Leia(contato)
Escreval("Digite 1 para editar Contato")
         Leia (opcao)
Escreval("Digite o que deseja Editar:")
Escreval("1-Código")
Escreval ("2-Nome")
Escreval("3-Logradouro")
Escreval("4-Numero do Logradouro")
Escreval("5-Bairro")
Escreval("6-Cidade")
Escreval("7-Estado")
Escreval("8-Cep")
Escreval("9-Editar Tudo")
Leia (opcao)
                se opcao=1 entao
Escreval("Digite o novo código")
                 Leia(codigo)
Escreval("Código Alterado para", codigo)
                 senao
                   se opcao=2 entao
Escreval("Digite o novo nome:")
                 leia(nome)
Escreval("Nome alterado para", nome)
               senao
                    se opcao=3 entao
Escreval("Digite o novo Logradouro:")
                 Leia (logradouro)
Escreval("Logradouro alterado para",logradouro)
                     senao
                          se opcao=4 entao
Escreval("Digite o novo Número do logradouro")
                 Leia (numero_logradouro)
Escreval("Número do Logradouro alterado para", numero_logradouro)
                     senao
                          se opcao=5 entao
Escreval("Digite o Novo Bairro")
                 Leia(bairro)
Escreval("Bairro alterado para", bairro)
                 senao
                      se opcao=6 entao
Escreval("Digite a nova Cidade")
                 Leia (cidade)
Escreval ("Cidade alterada para", cidade)
                  senao
                       se opcao=7 entao
Escreval("Digite o novo Estado")
                 Leia (estado)
Escreval("Estado alterado Para", estado)
                 senao
                      se opcao=8 entao
Escreval("Digite o novo CEP")
                 Leia(cep)
Escreval ("Cep Alterado Para", cep)
                        senao
                             se opcao=9 entao
Escreval("Digite o Novo Codigo:")
                 Leia(codigo)
Escreval("Digite o Novo Nome: ")
                 Leia (nome)
Escreval ("Digite o Novo Logradouro")
         Leia (logradouro)
Escreval("Digite o Novo Número De Logradouro:")
                 Leia(numero_logradouro)
Escreval("Digite o novo Bairro")
                 Leia(bairro)
Escreval("Digite a nova cidade")
                 Leia (cidade)
Escreval("Digite o novo Estado")
                 Leia (estado)
Escreval("Digite o novo Cep:")
                 Leia (cep)
Escreval("Contato Alterado com Sucesso!")
                  
                  se opcao=3 entao
Escreval("------------------------------------------------------------")
Escreval("EXCLUIR CONTATO")
Escreval("------------------------------------------------------------")
Escreval("Digite o nome do contato a ser excluído:")
                 Leia (contato)
Escreval ("Deseja realmete apagar esse contato? 1-Sim  2-Cancelar")
         se opcao=1 entao
Escreval("Contato excluído com sucesso!")
                     senao
                     se opcao=2 entao
Escreval("Operação cancelada com sucesso!")
                            FimSe
                                 FimSe
                                      FimSe
                                           FimSe
                                                FimSe
                                                     FimSe
                                                          FimSe
                                                               FimSe
                                                                    FimSe
                                                                         FimSe
                                                                              FimSe
                                                                                   FimSe
                                                                                        FimSe

fimalgoritmo

 

 

Então, o meu problema está sendo o seguinte, quando digito a opção 3 ele simplesmente escreve o numero digitado, mas encerra o programa. Alguém pode me ajudar por favor? Segue abaixo