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.