Outro Correção de programa em portugol

[Rafael Mariano Domingos]

n consigo achar o erro no programa queria fazer um laço de repetição condicional no qual uso enquanto para definir os turnos dos jogadores mas esta dando erro alguem pode me ajuda ?

 

 

 

Algoritmo "Classes"

procedimento vezArqueiro()
var//variaveis procedimento

inicio
   Escreval(" ")
   Escreval("---------------------------------------------------")
   Escreval(" ")
   Escreval("                  A R Q U E I R O                  ")
   Escreval(" ")
   Escreval("          [A] Causa 3 de dano        ")
   Escreval("           Causa 1.5 de dano        ")
   Escreval("          [C] Causa 7 de dano        ")
   Escreval(" ")
   Escreval("---------------------------------------------------")
   Escreval(" ")

fimprocedimento//final
procedimento vezAnao()
var

inicio
   Escreval(" ")
   Escreval("---------------------------------------------------")
   Escreval(" ")
   Escreval("                    A N A O                        ")
   Escreval(" ")
   Escreval("              [A] Causa 4 de dano        ")
   Escreval("               Causa 5 de dano        ")
   Escreval("              [C] Causa 7 de dano        ")
   Escreval(" ")
   Escreval("---------------------------------------------------")
   Escreval(" ")
fimprocedimento
Tipo // registro
   Classes = registro
      arq_Hp: real
      arq_S1: real
      arq_S2: real
      arq_U : real

      ana_Hp: real
      ana_S1: real
      ana_S2: real
      ana_U : real
   fimregistro //final

var //variaveis do programa
   skill: caractere
   resultado: real
   Dano: real
   arq: Classes
   ana: Classes
   i: inteiro
inicio //programa
   arq.arq_Hp <- 15
   arq.arq_S1 <- 3
   arq.arq_S2 <- 1.5
   arq.arq_U <- 7
   ana.ana_Hp <- 20
   ana.ana_S1 <- 4
   ana.ana_S2 <- 5
   ana.ana_U <-  7

   enquanto (arq.arq_Hp = 0) ou (ana.ana_Hp = 0)faca
      vezArqueiro()//VEZ ARQUEIRO
      leia (skill)
      Escolha skill
   caso "a"
      resultado <- arq.arq_S1
      ana.ana_Hp <- ana.ana_Hp - resultado
      escreval(" Arqueiro causou ", arq.arq_S1, " de dano e deixou anão com ", ana.ana_Hp, " de HP.")
   caso "b"
      resultado <- arq.arq_S2
      ana.ana_Hp <- ana.ana_Hp - resultado
      escreval(" Arqueiro causou ", arq.arq_S2, " de dano e deixou anão com ", ana.ana_Hp, " de HP.")
   caso "c"
      resultado <- arq.arq_U
      ana.ana_Hp <- ana.ana_Hp - resultado
      escreval(" Arqueiro causou ", arq.arq_U, " de dano e deixou anão com ", ana.ana_Hp, " de HP.")
   outrocaso
      Limpatela
      Escreval("Opção invalida!")
   fimescolha

      vezAnao()//VEZ ANAO
      Leia(skill)
      Escolha skill
   caso "a"
      resultado <- ana.ana_S1
      arq.arq_Hp <- arq.arq_Hp - resultado
      escreval(" Anão causou ", ana.ana_S1, " de dano e deixou arqueiro com ", arq.arq_Hp, " de HP.")
   caso "b"
      resultado <- ana.ana_S2
      arq.arq_Hp <- arq.arq_Hp - resultado
      escreval(" Anão causou ", ana.ana_S2, " de dano e deixou arqueiro com ", arq.arq_Hp, " de HP.")
   caso "c"
      resultado <- ana.ana_U
      arq.arq_Hp <- arq.arq_Hp - resultado
      escreval(" Anão causou ", ana.ana_U, " de dano e deixou arqueiro com ", arq.arq_Hp, " de HP.")
   outrocaso
      Limpatela
      Escreval("Opção invalida!")
   fimescolha
Fimalgoritmo