visualg Erro na linha escolha opcao

[doodoh]

algoritmo "semnome"
// Função :
// Autor : Douglas Rafael
// Data : 12/26/2016
// Seção de Declarações
var
resp,opcao,n1,n2,m,n:inteiro
// procedimento calculo de media
procedimento calcularmedia(a,b:inteiro)

m:=(a+b)/2
escreval("Média: ",m)

fimprocedimento
procedimento parouimpar(c:inteiro)

se (n%2=0) então
   escreval("Par: ",n)
   senao
   escreval("Impar: ",n)
   fimse
fimprocedimento
inicio

repita
resp:=1
escreval("Olá, bem vindo ao nosso sistema!")
escreval("Por favor, informe sua opcao digitando... ")
escreval("Para calcular média informe [1] ")
escreval("Para saber se um número é par ou impar informe [2] ")
escreval("Para sair pressione [0] ")
escreval("A espera... ")
leia(opcao)
escolha opcao
       caso 0
       limpatela
            escreval("Você saiu do programa.")
            caso 1
            limpatela
            escreval("Cálcule média aritmetica> ")
            escreval("Informe o primeiro número: ")
            leia(n1)
            escreval("Informe o segundo número: ")
            leia(n2)
            calcularmedia (n1,n2)
                 caso 2
                 limpatela
                 escreval("Informe o número: ")
                 leia(n)
                 parouimpar(n)

            outrocaso
            escreval("Deseja realmente sair? [1]SIM/[0]NÃO ")
            leia(resp)
            escreval("Você saiuu...")

fimescolha
ate (resp<>0)
fimalgoritmo

Erro na linha "escolha opcao"

[devair1010]

@doodoh   não é na linha escolha opcao, é porque você esqueceu de colocar o inicio no procedimento calularmedia e no parouimpar,  e  também a variável m tem que ser declarada como real.

procedimento calcularmedia(a,b:inteiro)
inicio
m:=(a+b)/2
escreval("Média: ",m)

fimprocedimento