Portugol Exercicio sobre matrizes e vetores

[Thiago Brito de Souza]

Preciso passar este código em visualG para o portugol. Alguma dica sobre isso?

Me dêem um norte, para que eu possa adaptar.

 

algoritmo "VerificarSituaçãoAlunos"

var
   alunos: vetor[1..3] de caractere
   notas: matriz[1..3, 1..4] de real
   medias: vetor[1..3] de real
   situacao: vetor[1..3] de caractere

// Função para imprimir uma linha de separação
funcao ImprimirLinhaSeparacao()
   escreval("----------------------------------------")
fim funcao

// Função para imprimir o relatório do aluno
funcao ImprimirRelatorioAluno(aluno: caractere, notas: vetor[1..4] de real, media: real, situacao: caractere)
   escreval("Aluno: ", aluno)
   escreval("Notas: ")
   para i de 1 ate 4 faca
      escreva(notas[i], " ")
   fim para
   escreval("Média: ", media)
   escreval("Situação: ", situacao)
   escreval("")
fim funcao

// Função para calcular a média das notas de um aluno
funcao CalcularMedia(notas: vetor[1..4] de real) : real
   soma := 0
   para i de 1 ate 4 faca
      soma := soma + notas[i]
   fim para
   media := soma / 4
   retorne media
fim funcao

inicio
   // Entrada de dados
   para i de 1 ate 3 faca
      escreva("Digite o nome do aluno ", i, ": ")
      leia(alunos[i])
      para j de 1 ate 4 faca
         escreva("Digite a nota ", j, " do aluno ", i, ": ")
         leia(notas[i, j])
      fim para
   fim para

   // Processamento e impressão do relatório
   para i de 1 ate 3 faca
      medias[i] := CalcularMedia(notas[i])
      se medias[i] >= 7 então
         situacao[i] := "Aprovado"
      senao
         situacao[i] := "Reprovado"
      fim se
      ImprimirLinhaSeparacao()
      ImprimirRelatorioAluno(alunos[i], notas[i], medias[i], situacao[i])
   fim para

fimalgoritmo