Pascal/Turbo Pascal - Problema con invertir vector

¡Hola! He estado leyendo todas las cuestiones sobre invertir vectores para evitar molestar a nadie, pero por más que pruebo no me sale. Debo implementar un procedimiento que reciba como único argumento un vector de nº enteros e invierta su contenido. El 1er elemento pasaría a ser el último, y el último el primero, el 2º pasaría a ser el penúltimo, etc... Esto es lo que llevo hecho del procedimiento, les agradezco la ayuda de antemano.

procedure invertir(var vector: array of real);
var
i, j, n: integer;
inv: array of real;
begin
for i:= low(vector) to (high(vector)/2) do
begin
inv:= vector[n-i+1];
vector[n-i+1]:= vector[i];
vector[i]:= inv;
end;
end;

Pufff!, tienes tantos problemas que no sé por dónde comenzar.

Asumo que no estás usando Turbo Pascal porque el parámetro vector es un open array, algo que no existe en TP.

En el for, esta parte está mal: (high(vector)/2)
El resultado de esa división es un número real, los índices de los for deben ser de tipo ordinal y un real no lo es. Lo correcto sería (high(vector) div 2). Por otro lado como estás usando un array que podría no estar basado en 1, el cálculo para determinar la mitad (es decir la posición que está a la mitad del array) es más complicado que eso.

Por ejemplo si el array va desde la posición 15 a la 20 (5 elementos), 20 div 2 da 10, lo que cae fuera del array. Entonces lo correcto sería (20-15 div 2)+5=17, o, usando tu ejemplo:

for i:=low(vector) to ((high(vector)-low(vector)) div 2)+length(vector) do

Ya dentro del for, la variable n no tiene ningún valor definido y lo que hace la fórmula para determinar el índice actual es incomprensible.

inv es a su vez otro open array que tampoco está inicializado. Y la asignación que haces es inválida, estás asignando un tipo real a un tipo array of real, creo que lo que has querido hacer es asignar la posición actual de vector, que es un real, a un real. Por lo tanto inv debería estar declarado como

inv: real;

Entonces mi versión de este procedimiento es:

procedure invertir(var vector: array of real);
var
i, j: integer;
inv: real;
begin
j:=high(vector);
for i:=low(vector) to ((high(vector)-low(vector)) div 2)+length(vector) do
begin
inv:= vector[i];
vector[j]:= vector[i];
vector[j]:= inv;
dec(j); // o bien j:=j-1;
end; // for
end;