Portugol - Função não executada se chamada de fora do programa

Esse é o código funcionando e levando em conta a acumulação das notas dentro da função, para depois usar o retorno no cálculo da média.

var

contadorGabarito: inteiro
gabarito: vetor[1..5] de caractere
aluno: vetor[1..3] de caractere
resposta: vetor[1..5] de caractere
notaAluno: vetor[1..3] de real
notaTurma: real
notaFinal: real
contadorNotas: inteiro
media: real

procedimento cadastrarGabarito
inicio

  para contadorGabarito <- 1 ate 5 faca
       escreva("Resposta da Questão", contadorGabarito, ": ")
              leia(gabarito[contadorGabarito])
  fimPara
  
  // Lembre-se: O vetor gabarito PRECISA ter a variável [contadorGabarito]
  // para cadastrar o número de respostas necessárias e saber em qual
  // posição vai cada resposta.
  
fimProcedimento

funcao notasAlunos(): real
var

contadorAlunos: inteiro
contadorRespostas: inteiro

inicio

  notaFinal <- 0
  para contadorAlunos <- 1 ate 3 faca
       escrevaL("------------------------------")
       escrevaL("Passo 2 - Respostas dos Alunos")
       escrevaL("------------------------------")
       escreva("Nome do Aluno: ")
              leia(aluno[contadorAlunos])
       para contadorRespostas <- 1 ate 5 faca
            escreva("Resposta da Questão", contadorRespostas, ": ")
                   leia(resposta[contadorRespostas])
            se (resposta[contadorRespostas] = gabarito[contadorRespostas]) entao
               notaTurma <- notaTurma + 2
               notaAluno[contadorAlunos] <- notaAluno[contadorAlunos] + 2
            fimSe // As duas últimas linhas antes do fimSe atribuem uma nota
            // para a turma, que será usada para calcular a média da turma e
            // uma nota para o aluno, usando o [contadorAlunos] para atribuir
            // a nota ao nome do aluno através de um vetor.
            retorne notaTurma
       fimPara
       limpaTela
  fimPara // Esse é o para do contador de alunos, ele repete toda a sessão
  // para que as respostas do alunos sejam inseridas nos vetores e as notas
  // calculadas.

fimFuncao

inicio

  escrevaL("------------------------------")
  escrevaL("Passo 1 - Cadastro do Gabarito")
  escrevaL("------------------------------")
  cadastrarGabarito()
  
  limpaTela
  
  notaFinal <- notasAlunos()
  
  escrevaL("------------------------------")
  escrevaL("Passo 3 - Atribuição das Notas")
  escrevaL("------------------------------")

  para contadorNotas <- 1 ate 3 faca
       escrevaL("Nota final de ", aluno[contadorNotas], ": ", notaAluno[contadorNotas])
       media <- notaFinal / 3
  fimPara
  escrevaL("------------------------------")
  escreva("Média da Turma: ", media:4:1)
  escrevaL("------------------------------")
  
fimalgoritmo