Game of shifts in Visualg

I'm stuck on the conditional repetition part. What should I get in the code?

Algoritmo "Classes"
Tipo
   Classes = registro
      arq_Hp,arq_S1,arq_S2,arq_U : real
      ana_Hp,ana_S1,ana_S2,ana_U: real
   fimregistro //final
var
   Skill: caractere
   arq,ana: Classes
   vPAna, vPArq: real
   resultado: real
inicio
   arq.arq_Hp <- 14
   arq.arq_S1 <- 3
   arq.arq_S2 <- 1.5
   arq.arq_U <- 7
   ana.ana_Hp <- 19
   ana.ana_S1 <- 4
   ana.ana_S2 <- 5
   ana.ana_U <-  7
   vPArq <- 1
   vPAna <- 1
   enquanto(vPArq > 0)ou (vPAna > 0) faca
      Escreval(" ")
      Escreval("---------------------------------------------------")
      Escreval(" ")
      Escreval("                  A R Q U E I R O                  ")
      Escreval(" ")
      Escreval("          [A] Causa 3 de dano        ")
      Escreval("          [B] Causa 1.5 de dano        ")
      Escreval("          [C] Causa 7 de dano        ")
      Escreval(" ")
      Escreval("---------------------------------------------------")
      Escreval(" ")
      Leia(skill)
      Escolha skill
      caso "a"
         resultado <- arq.arq_S1
         vPAna <- ana.ana_Hp - resultado
         escreval(" Arqueiro causou ", arq.arq_S1, " de dano e deixou anão com ", vPAna, " de HP.")
      caso "b"
         resultado <- arq.arq_S2
         vPAna <- ana.ana_Hp - resultado
         escreval(" Arqueiro causou ", arq.arq_S2, " de dano e deixou anão com ", vPAna, " de HP.")
      caso "c"
         resultado <- arq.arq_U
         vPAna <- ana.ana_Hp - resultado
         escreval(" Arqueiro causou ", arq.arq_U, " de dano e deixou anão com ", vPAna, " de HP.")
      outrocaso
         Limpatela
         Escreval("Opção invalida!")
      fimescolha
      Escreval(" ")
      Escreval("---------------------------------------------------")
      Escreval(" ")
      Escreval("                    A N A O                        ")
      Escreval(" ")
      Escreval("              [A] Causa 4 de dano        ")
      Escreval("              [B] Causa 5 de dano        ")
      Escreval("              [C] Causa 7 de dano        ")
      Escreval(" ")
      Escreval("---------------------------------------------------")
      Escreval(" ")
      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
      fimenquanto
   escreval("..")
Fimalgoritmo