Multiplicação de vetores em portugol

algoritmo "Multiplicaçao de vetores"
// Função :
// Autor : Moises fernandes barbosa
// Data : 11/11/2013
// moises33m@gmail.com
// Seção de Declarações

//5)Escreva um algoritmo que leia 10 elementos para um vetor “VETA” e 10 para
//um vetor “VETB”.O algoritmo deverá efetuar a multiplicação dos elementos
//para um vetor “VETC”.

var
VETA, VETB, VETC: vetor[1..2] de inteiro
i: inteiro
inicio
// Seção de Comandos
para i de 1 ate 2 faca
escreval("Digite a nota do aluno " , i,":")
leia(VETA[i])
fimpara
para i de 1 ate 2 faca
escreval(" A nota do aluno ",i," é: ",VETA[i])
fimpara
escreval("")

para i de 1 ate 2 faca
escreval("Digite a nota do aluno " , i,":")
leia(VETB[i])
fimpara
para i de 1 ate 2 faca
escreval(" A nota do aluno ",i," é: ",VETB[i])
fimpara
escreval
para i de 1 ate 2 faca
escreval(" A mult do 1º com o 2º na pos",i, "")
VETC[i]<- VETA[i] * VETB[i]
escreval(VETC[i])
fimpara
fimalgoritmo