Não estou encontrando o ERRO – VisualG 3.0

Bom, sou universitário de ADS e estou no segundo período do curso, e nossa linguagem educacional por enquanto é o Portugol do Visualg

O professor passou a seguinte atividade para nós…

Criar um programa em Visualg que tenha um MENU com:

1 – Cadastrar Venda
2 – Lista de Vendas Realizadas
S – Sair (Encerrar o programa, agradecendo pela utilização)

* Utilize APENAS estruturas como procedimento, para o cadastro e a listagem de produtos

Procedimento de cadastro deve ter:
– Cliente
– Data
– Produto
– Valor do Produto
– Quantidade vendida
(O programa deve calcular o valor total da venda e armazená-lo no cadastro.)
– Mensagem de produto cadastrado concluído com sucesso

Procedimento de Listagem deve ter:
– Retornar as informações de todas as vendas realizadas, e o valor total de cada uma

Entao desenvolvi o seguinte código, junto com a ajuda do querido ChatGPT…
Algoritmo “Controle de Vendas”
Var
clientes: vetor [1..100] de caractere
datas: vetor [1..100] de caractere
produtos: vetor [1..100] de caractere
valoresProduto: vetor [1..100] de real
valoresTotal: vetor [1..100] de real
quantidades: vetor [1..100] de inteiro
contador, totalvendas: inteiro
i: inteiro
vendasCadastradas: logico
opcao: caractere

Procedimento cadastrarVenda
Inicio
Se totalvendas < 100 entao
contador <- contador + 1
totalvendas <- totalvendas + 1

escreva(“Informe o Cliente: “)
leia(clientes[contador])
escreva(“Informe a Data: “)
leia(datas[contador])
escreva(“Informe o Produto: “)
leia(produtos[contador])
escreva(“Informe o Valor do Produto: “)
leia(valoresProduto[contador])
escreva(“Informe a Quantidade Vendida: “)
leia(quantidades[contador])

valoresTotal[contador] <- valoresProduto[contador] * quantidades[contador]

Escreval(“Produto cadastrado com sucesso!”)

// Atualiza a variável vendasCadastradas para Verdadeiro
vendasCadastradas <- Verdadeiro

Senao
Escreval(“Limite de vendas atingido.”)
FimSe
FimProcedimento

Procedimento listarVendas
Inicio
vendasCadastradas <- Falso
Para i de 1 ate 100 faca
Se clientes <> “” Entao
vendasCadastradas <- Verdadeiro
Escreval(“Cliente: “, clientes)
Escreval(“Data: “, datas)
Escreval(“Produto: “, produtos)
Escreval(“Valor do produto: “, valoresProduto)
Escreval(“Quantidade de produtos: “, quantidades)
Escreval(“Valor total da venda: “, valoresTotal)
Escreval(“——————————“)
FimSe
FimPara

Se Nao vendasCadastradas Entao
Escreval(“Não há vendas cadastradas.”)
FimSe
FimProcedimento

// Programa Principal
Inicio

totalvendas <- 0
contador <- 0
vendasCadastradas <- Falso

Repita
escreval(“MENU:”)
escreval(“1 – Cadastrar Venda”)
escreval(“2 – Lista de Vendas Realizadas”)
escreval(“S – Sair”)
escreva(“Escolha a opção desejada: “)
leia(opcao)

escolha opcao
caso “1”
cadastrarVenda
caso “2”
listarVendas
caso “S”
escreva(“Programa encerrado. Obrigado por utilizar!”)
outrocaso
escreva(“Opção inválida. Tente novamente.”)
fimescolha

Ate opcao = “S”
FimAlgoritmo