Portugol Bug no meu algorítimo

Luide Vqs · 12 de junho de 2018

Boa noite, olha eu aqui dnv... Bom, estava fazendo um algoritmo para reservar poltronas no cinema, ocorreu tudo certinho, maaaas ocorreu algo inusitado, quando eu reservo uma cadeira, a linha --Escreva("Cadeira B",[N]," Reservada") --não aparece na tela, alguem pode me dizer porque acontece isso? conflito de comandos ou sla....

algoritmo "semnome"
var
   Cadeira:Vetor[1..10] de Caractere
   C, N:Inteiro
   R :Caractere
inicio
     Para C <- 1 ate 10 faca
          Cadeira[C] <- "OK"
     Fimpara
     Repita
           Para C <- 1 ate 10 faca
                Se Cadeira[C]="OK" então
                   Escreva("[B",C,"]")
                Senao
                   Escreva("[--]")
                Fimse
           Fimpara
           Escreval("")
           Escreva("Reservar Cadeira: B")
           Leia(N)
           Se (Cadeira[N]="OK") então
               Cadeira[N] <- "X"
               Escreva("Cadeira B",[N]," Reservada")
           Senao
               Escreval("ERROR Cadeira já reservada, Tente novamente")
           Fimse
           Escreva("Deseja Reservar outra cadeira?[S/N] ")
           Leia(R)
           Limpatela
     ate(R="N")


fimalgoritmo