VisualG ajuda

[Rafael2000]

Var
   nome:vetor [1..100] de caractere
   m,n,t,x,y,op:inteiro
   alt: vetor [1..100] de real
   imc: vetor [1..5,1..5] de real
procedimento "cadastro"
var
   imc: real
   p:  real

inicio

   escreval ("               CADASTRO")
   escreval ("___________________________________")
   escreval ("digite o nome do paciente: ")
   leia (nome[t])
   escreval ("digite a altura do paciente: ")
   leia (alt[t])
   escreval ("digite o peso do paciente: ")
   leia (p)
   imc<- p/(alt[t]*alt[t])
   escreval ("IMC: ", imc)
   se (imc<17) então
      escreval (" MUITO ABAIXO DO PESO.")
   fimse
   se (imc>17) e (imc< 18.49) então
      escreval ("ABAIXO DO PESO")
   fimse
   se (imc>18.50) e (imc<24.99) então
      escreval ("PESO NORMAL")
   fimse
   se (imc>25) e (imc<29.99)então
      escreval ("ACIMA DO PESO")
   fimse
   se (imc>30) e (imc<34.99)então
      escreval ("OBESIDADE 1")
   fimse
   se (imc>35) e (imc<39.99)então
      escreval ("OBESIDADE 2 (SEVERA)")
   fimse
   se (imc>40)então
      escreval ("OBESIDADE 3 (MÓRBIDA)")
   fimse
   escreval
   t<-t + 1
fimprocedimento
procedimento "monitoramento"
var
   p: real


inicio
   escreval ("          MONITORAMENTO")

   para n de 1 ate t-1 faca
      escreval ("_____________________________________")
      escreval ("NOME:  ", nome[n])
      escreval ("ALTURA:  ", alt[n])

      escreval ("O peso atual do paciente é:  ")
      leia (p)
      escreval ("O imc atual é:  ")
      imc[n,m]<- p/(alt[n]*alt[n])
      escreval ("IMC: ", imc[n,m])
      se (imc[n,m]<17) então
         escreval (" MUITO ABAIXO DO PESO.")
      fimse
      se (imc[n,m]>17) e (imc[n,m]< 18.49) então
         escreval ("ABAIXO DO PESO")
      fimse
      se (imc[n,m]>18.50) e (imc[n,m]<24.99) então
         escreval ("PESO NORMAL")
      fimse
      se (imc[n,m]>25) e (imc[n,m]<29.99)então
         escreval ("ACIMA DO PESO")
      fimse
      se (imc[n,m]>30) e (imc[n,m]<34.99)então
         escreval ("OBESIDADE 1")
      fimse
      se (imc[n,m]>35) e (imc[n,m]<39.99)então
         escreval ("OBESIDADE 2 (SEVERA)")
      fimse
      se (imc[n,m]>40)então
         escreval ("OBESIDADE 3 (MÓRBIDA)")
      fimse


      n<-n+1
      m<-m+1
   fimpara

fimprocedimento
procedimento "relatorio"
var
   linha, g: inteiro

inicio
   escreval ("      RELATÒRIO")
   escreval ("_________________________")
   escreval ("     TABELA DE MONITORAMENTO")
   para x de 1 ate 1 faca
      escreval ("         ")
      para y de 1 ate t-1 faca
         escreval("PacienTe ",nome[y]," Com IMC = ",imc[y,1]:5:2)
         escreva (imc[n,m]:5:2)
      fimpara
   fimpara
fimprocedimento
procedimento "menu"
inicio
   escreval ("___________________________")
   escreval ("1.CADASTRO DO PACIENTE")
   escreval ("2.MONITORAMENTO DO PACIENTE")
   escreval ("3.RELATÒRIO")
   escreval ("4.SAIR")
   escreval("____________________________")
   leia (op)
   se (op=1) então
      cadastro
   fimse
   se (op=2) então
      monitoramento
   fimse
   se (op=3) então
      relatorio
   fimse
fimprocedimento
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   m<-1
   t<-1
   n<-1
   enquanto (op<>4) faca
      menu
   fimenquanto


   se(op=4)  então
      escreval ("FIM")
   fimse


Fimalgoritmo

Alguém poderia me ajudar com este programa ele já esta me dando dor de cabeça kkkk