Não estou entendendo o erro – VISUALG

Sou estudante do 2o período de Analise de Desenvolvimento de Sistema, e o Visualg (Portugol) é a nossa linguagem educacional/ Professor passou um trabalho com os seguintes pedidos…

Desenvolva um programa em Visualg que apresente o seguinte menu para o usuário:
1 – Cadastrar aluno
2 – Pesquisar aluno
3 – Listar alunos
4- Lista média de todos alunos da turma
S – Sair
Digite Opção:
1. Em Cadastrar: deve conter os vetores: RA, Nota1, Nota2 e Cidade. Um de cada vez;
2. Realiza a pesquisa por RA, caso encontrar apresentar a média (que é criado automaticamente no vetor MEDIA, quando é realizado o cadastro das notas). Caso não encontre, informar “RA inexistente”;
3. Lista todos alunos cadastrados até o momento;
4. Lista a média de cada aluno, mas apresentando somente RA e Media;
5. Sair agradecendo o usuário.
* Utilizar a Estrutura Caso… Escolha
*O limite de alunos deve ser 10, após tentar cadastrar mais alunos porém com esse limite já atingido, mandar uma informação.(que já foi atingido
*Informar quando não tem alunos cadastrados caso a Opção seja 2, 3 ou 4

O ERRO SE DA NA SEGUINTE PARTE: O limite de alunos deve ser 10, após tentar cadastrar mais alunos porém com esse limite já atingido, mandar uma informação.(que já foi atingido)


Algoritmo “CadastroAlunos”
Var
opcao: Caractere
RA: Vetor[1..10] de Inteiro
Nota1: Vetor[1..10] de Real
Nota2: Vetor[1..10] de Real
Cidade: Vetor[1..10] de Caractere
MEDIA: Vetor[1..10] de Real
i: Inteiro
raPesquisa: Inteiro
encontrou: Logico
alunosCadastrados: Logico
Inicio
Para i de 1 ate 10 faca
RA <- 0
Nota1 <- 0
Nota2 <- 0
MEDIA <- 0
FimPara
alunosCadastrados <- Falso
Enquanto opcao <> “S” faca
Escreval(“==================================================”)
Escreval(” -=MENU=-“)
Escreval(“1 – Cadastrar aluno”)
Escreval(“2 – Pesquisar aluno”)
Escreval(“3 – Listar alunos”)
Escreval(“4 – Lista média de todos alunos da turma”)
Escreval(“S – Sair”)
Escreval(“==================================================”)
Escreval(“Digite Opção: “)
Leia(opcao)
LimpaTela
Escolha opcao
Caso “1”
// Cadastrar aluno
i <- 1
Enquanto (i <= 10) E (RA <> 0) faca
i <- i + 1
FimEnquanto
Se i <= 10 então
Escreva(“Digite o RA do aluno: “)
Leia(RA)
Escreva(“Digite a Nota 1 do aluno: “)
Leia(Nota1)
Escreva(“Digite a Nota 2 do aluno: “)
Leia(Nota2)
Escreva(“Digite a Cidade do aluno: “)
Leia(Cidade)
MEDIA <- (Nota1 + Nota2) / 2
LimpaTela
Escreval(“Aluno cadastrado com sucesso!”)
alunosCadastrados <- Verdadeiro
Senao
Escreval(“Limite de alunos atingido.”)
FimSe
Caso “2”
// Pesquisar aluno
Se alunosCadastrados então
Escreval(“Digite o RA para pesquisa: “)
Leia(raPesquisa)
encontrou <- Falso
Para i de 1 ate 10 faca
Se RA = raPesquisa então
LimpaTela
Escreval(“Média: “, MEDIA)
encontrou <- Verdadeiro
Interrompa
FimSe
FimPara
Se não encontrou então
Escreval(“RA inexistente”)
FimSe
Senao
Escreval(“Nenhum aluno cadastrado até o momento.”)
FimSe
Caso “3”
// Listar alunos
Se alunosCadastrados então
Para i de 1 ate 10 faca
Se RA <> 0 então
Escreval(“RA: “, RA)
Escreval(“Nota 1: “, Nota1)
Escreval(“Nota 2: “, Nota2)
Escreval(“Média: “, MEDIA)
Escreval(“———————————“)
FimSe
FimPara
Senao
Escreval(“Nenhum aluno cadastrado até o momento, consequentemente, nenhuma média calculada.”)
FimSe
Caso “4”
// Listar médias
Se alunosCadastrados então
Para i de 1 ate 10 faca
Se RA <> 0 então
Escreval(“RA: “, RA)
Escreval(“Média: “, MEDIA)
Escreval(“———————————“)
FimSe
FimPara
Senao
Escreval(“Nenhum aluno cadastrado até o momento.”)
FimSe
Caso “S”
Escreval(“Agradecemos por utilizar o programa!”)
OutroCaso
Escreval(“Opção inválida. Tente novamente.”)
FimEscolha
FimEnquanto
FimAlgoritmo


Esse é o código, e aqui está o erro na hora da execução – Acredito que essas linhas que o Visualg acusa estejam erradas, mas resumindo, Eu cadastro os 10 alunos porém quando clico novamente na Opção 1(de cadastro), ao invés de aparecer a mensagem de “Limite de alunos atingido”, e aí o erro se apresenta. Se algum expert puder me ajudar ficarei muito agradecido!!