Pascal/Turbo Pascal - PROBLEMA CON PARAMETROS.

PROGRAM Array_invertido;

TYPE

  tvector=array[1..3]of integer;

VAR

  vector:tvector;

  i:integer;

PROCEDURE Inverso(v:tvector); // NO ME COMPILA POR UN PROBLEMA DE PARAMETROS.

VAR

  i:integer;

Begin

     FOR i:=1 TO 3 DO

     Begin

       writeln('Ingrese numeros al vector; ');

       readln(v[i]);

     end;

     writeln('Los numeros inversos del vector son: ');

     FOR i:=3 DOWNTO 1 DO

     writeln(v[i]);

end;

BEGIN

  Inverso(vector);

  readln;

END.