valores inteiros fiquem negativos - portugol

algoritmo "valores inteiros fiquem negativos"
// Função :
// Autor : Moises fernandes barbosa moises33m@gmail.com
// Data : 11/11/2013
// Seção de Declarações

//4)Desenvolva um algoritmo que preencha um vetor com 25 valores inteiros
//(positivos ou negativos).O algoritmo deverá percorrer o vetor e alterar os
//valores, de forma que todos os números fiquem negativos.

var
valor: vetor[1..25] de inteiro
i: inteiro
inicio
// Seção de Comandos
para i de 1 ate 25 faca
escreval("Digite o valor " , i,":")
leia(valor[i])
fimpara
para i de 1 ate 25 faca
se valor > 0 entao
escreval(" O valor ficou ",i," é: ",-valor[i])
senao
escreval(" O valor ficou ",i," é: ",valor[i])
fimpara
fimse
fimse
fimalgoritmo