Pascal/Turbo Pascal - problema con vector

Buenas, les paso a comentar mi problema.
Resulta que tengo que leer un vector, y calcular el valor absoluto mas grande y su posicion.
la idea la tengo, uso in " para i=1 hasta dimen hacer" y bueno, me fijo si es negatico x(i)<0 entonces, bueno saca el valor absoluto. A ese valor lo guardo, por que cumple la condicion, pero que va a pasar cuando entre otro negativo? se me borrara el que guarde? como comparo el primer negativo que me comprobó con otro que entre? bueno desde ya gracias-

Querido Matute si lo que quieres calcular es el maximo valor absoluto de un vector tienes que hacer lo siguiente:

Max := Vector[1];
Posicion := 1
For i := 1 to Longitud do
If Abs(Vector[i]) > Max then
begin
Max := Vector[i]
Posicion:= i
End;
Lo que hace es suponer al primer elemento como máximo y luego recorre el vector en busca de un absoluto mayor si lo encuentra se guarda el valor y la posicion.

Espero que te sirva.