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

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.