Soma e media de vetores - portugol

algoritmo "Vetor, nota, soma e media"
// Função :
// Autor : Moises fernandes barbosa moises33m@gmail.com
// Data : 11/11/2013
// Seção de Declarações

//3)Desenvolva um algoritmo que leia as notas de 80 alunos para um vetor. Somente
//no final, o algoritmo deve calcular
//e imprimir a média das notas.

var
nota: vetor[1..80] de inteiro
i: inteiro
soma: inteiro
inicio
// Seção de Comandos
para i de 1 ate 80 faca
escreval("Digite a nota do aluno " , i,":")
leia(nota[i])
fimpara
para i de 1 ate 80 faca
escreval(" A nota do aluno ",i," é: ",nota[i])
soma <- soma+nota[i]
fimpara
escreval("")
escreval("A soma de todas as notas é: ",soma)
escreval("A media das notas é: ",soma/80)
fimalgoritmo