Problema muy simple en Pascal

[drakon007]

Hola gente del forosdelweb, tengo que hacer unos programas bastantes secillos en Pascal, uno dice: crear y llenar un array con 12 elementos, y en un segundo vector guardar el primer vector pero en orden inverso, yo hice esto y no fuciono:

Código:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 Vector = array [1..12] of Integer;

var
 I   : Integer;
 VUno, VDos : Vector;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  
 for I := 1 to 12 do
    begin
      Read(VUno[I]);
      VDos[(12-I+1)] := VUno[I]
    end;

  for I := 1 to 12 do
   begin
    Writeln(VDos[I])
   end;

read

end.

[rodno]

BUenas,

Puedes hacerlo

i=0;
for j:=12 downto 1 do
begin
inc(i);
VDos[i] := VUno[j];
end;

Saludos