Дана последовательность чисел А длины N. Требуется вывести в обратном порядке

Var
  a: array[1..100] of integer;
  n: integer;  
  i: byte;
begin
  randomize;
  write (Введите N: );
  readln (n);
  for i:=1 to n do begin 
    a[i]:=random(101);
    write (a[i]:5);
  end;
  writeln;
  for i:=n downto 1 do     
    write (a[i]:5);
end.
----------------------------------------
Результат:
Введите N: 10
   37   48    9   48   68    5   67  100   67   20
   20   67  100   67    5   68   48    9   48   37