Произвести обращение массива не используя дополнительных массивов

program mirror;

const n = 20; / /задает число элементов массива

var a: array [1 ... n] of integer;

temp: integer;

begin

randomize;

//Формирование массива

for i: integer: = 1 to n do

begin

a[i]: = random (n);

write (a[i] : 3);

end;

writeln ();

//Обращение массива

for i: integer: = 1 to trunc (n / 2) do

begin

temp:=a[i];

a[i]: = a[n + 1 - i];

a[n + 1 - i]: = temp;

end;

//Вывод массива

for i: integer: = 1 to n do write (a[i] : 3);

end.