visualg - vetor - par,impar

algoritmo "semnome"
// Função :
// Autor :
// Data : 04/05/2013
// Seção de Declarações
var
valor1:vetor[1..5] de real
valor2:vetor[1..5] de real
i:inteiro
valor3:vetor[1..10] de real
inicio
// Seção de Comandos
para i de 1 ate 5 faca
escreval("Digite os valores do primeiro vetor")
leia(valor1[i])
fimpara
para i de 1 ate 5 faca
escreval("Digite os valores do segundo vetor")
leia(valor2[i])
fimpara
para i de 1 ate 5 faca
valor3[i] <- valor1[i]
valor3[i+1]<-valor2[i]
fimpara
para i de 1 ate 10 faca
escreval(valor3[i])
escreval(valor3[i+1])
fimpara
fimalgoritmo

Questão:"Faça um programa que leia dois vetores de 10 posições e calcule um outro vetor

contendo, nas posições pares os valores do primeiro e nas posições impares os valores

do segundo"

Est´´a dando errado...ond eerrei?