Произвести обращение массива...

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

 

var
  a:array[1..100] of real;
  t:real;
  i, n:integer;
begin
  randomize;
  write('n = '); readln(n);
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a := random(21) - 10;
    write(a, ' ');
  end;
  writeln;
  writeln('Преобразованный массив');
  for i := 1 to n div 2 do
  begin
    t := a;
    a := a[n - i + 1];
    a[n - i + 1] := t;
  end;
 for i := 1 to n do
   write(a, ' ');
  writeln;
end.