Venda de Bilhetes Cinema

Estou Programando um sistema de vendas para cinema, ja está tudo quase pronto, a unica coisa que falta é recusar a venda de um bilhete caso a cadeira já esteja ocupada... me ajudem por favor?

var

sala_cinema: vetor[1..10, 1..30] de caracter
opcao_desejada: inteiro
fileira, cadeira: inteiro
x,y, bilheteria_inteira, bilheteria_meia: inteiro
tipo_entrada:caracter

inicio

repita
escreval(" ")
escreval("1 - Iniciar nova Sessão: ")

escreval("2 - Exibir o mapa de ocupação do cinema ")

escreval("3 - Vender um bilhete ")

escreval("4 -Totalizar a bilheteria ")

escreval("5 -Fechar o sistema ")

leia(opcao_desejada)
escolha (opcao_desejada)
caso 1
escreval("Iniciar nova sessão!")

caso 2
escreval("Exibe Mapa!")
escreval("")
para fileira de 1 ate 10 passo 1 faca
escreval("")
para cadeira de 1 ate 30 passo 1 faca
se (sala_cinema[fileira,cadeira] = "") entao
escreva(" O")
senao
escreva(" ", sala_cinema[fileira,cadeira])
fimse
fimpara
fimpara

escreval("")
caso 3
escreval("Vender Bilhete!")
escreval("Informe a fileira: ")
leia(fileira)
escreval("Informe a cadeira: ")
leia(cadeira)
sala_cinema[fileira,cadeira] <- "X"
escreval("Escreva M para meia e I para inteira: ")
leia(tipo_entrada)

para x de 1 ate 10 passo 1 faca
escreval("")
para y de 1 ate 30 passo 1 faca
se (sala_cinema[x,y] = "") entao
escreva(" O")
senao
se (sala_cinema[x,y] = "X") entao

se (tipo_entrada = "I") entao
escreva(" X")
bilheteria_inteira <- bilheteria_inteira + 1
senao
escreva(" M")
bilheteria_meia <- bilheteria_meia + 1

fimse
fimse
fimse

fimpara
fimpara

caso 4
escreval("Totalizar Bilheteria")
escreval("")
escreval("O total da bilheteria INTEIRA entrada foi: ", bilheteria_inteira*30)

escreval("")
escreval("O total da bilheteria MEIA entrada foi: ", bilheteria_meia*15)

para x de 1 ate 10 passo 1 faca
para y de 1 ate 30 passo 1 faca
sala_cinema[x,y] <- ""
fimpara
fimpara

caso 5
escreval("Finalizando Sistema!")
outrocaso
escreval("Não exite esta opção!")
fimescolha
ate (opcao_desejada = 5)
fimalgoritmo