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

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.