Вывести элементы массива на экран в обратном порядке

Var a:array [1..10] of integer;
begin
  for i:=1 to 10 do
   begin
    a[i]:=i;
    write (a[i]:3);
   end;
  writeln;
  for i:=10 downto 1 do write (a[i]:3);
  writeln;
end.