Задачка для крутых прогеров(Pascal ABC)

uses crt;
const N = 255; //тут можно менять количество элементов в массиве
var a: Array[1..N] of Integer;
i: Integer;
begin
Randomize;
for i := 1 to N do
a[i] := Random(N);

//выводим массив как есть
for i := 1 to N do
write(i + ' ');

//выводим массив в обратном порядке
for i := N downto 1 do
writeln(a[i]);

readln;
end.