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

program mirror;const n = 20; //задает число элементов массиваvar a: array [1..n] of integer;temp: integer;beginrandomize;//Формирование массиваfor i: integer:= 1 to n do begina[i]:= random(n);write(a[i] : 3);end;writeln();//Обращение массиваfor i: integer:= 1 to trunc(n / 2) do begintemp:=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.