Calculadora básica em visualg - incompleta

Algoritmo "Calculadora basica"
//
procedimento menu
inicio
   limpatela()
   escreval("CALCULADORA BÁSICA")
   escreval()
   escreval("Menu:")
   escreval("Somar ( + )")
   escreval("Subtrair ( - )")
   escreval("Multiplicar ( * )")
   escreval("Dividir ( / )")
   escreval()
   escreval("Escolha uma opção válida")
fimprocedimento

procedimento escolher
inicio
   leia(op)
   se ((op = "+") ou (op ="-") ou (op ="*") ou (op="/")) entao
      ro <- 1
   senao
      escreval("Opção inválida")
      ro <- 0
   fimse
fimprocedimento

procedimento pedir_numeros
inicio
   escreval("Escreva o 1º operador")
   leia(n1)
   escreval("Escreva o 2º operador")
   leia(n2)
fimprocedimento

procedimento somar
inicio
   escreva(n1+n2)
fimprocedimento

procedimento subtrair
inicio
   escreva(n1-n2)
fimprocedimento
procedimento multiplicar
inicio
   escreva(n1*n2)
fimprocedimento

procedimento dividir
inicio
   escreva(n1/n2)
fimprocedimento

procedimento calcular
inicio
   enquanto ro = 0 faca
      escolher
   fimenquanto
   pedir_numeros
   escolha op
   caso "+"
      somar
   caso "-"
      subtrair
   caso "*"
      multiplicar
   caso "/"
      dividir
   fimescolha
fimprocedimento

procedimento calculadora
inicio
   menu
   calcular
fimprocedimento
Var
   // Seção de Declarações das variáveis
   op: caracter
   ro: inteiro
   n1,n2: real

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   calculadora
Fimalgoritmo