Дана последовательность чисел А длины 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