Изменить порядок следования элементов массива на обратный, используя одну вспомогательную переменную

for i:=1 to m div 2 do
 begin
  x:=a[i];
  a[i]:=a[m-i+1];
  a[m-i+1]:=x;
 end;

uses crt;
const nmax=100;
var a:array [1..nmax] of integer;
    i,m: byte;
    buf:integer;
begin
randomize;
repeat
write('m (не более ',nmax,')=');readln(m);
until m in [1..nmax];
writeln('Прямой порядок');
for i:=1 to m do
    begin
    a[i]:=random(199)-99;
    write(a[i]:4);
    end;
writeln;
writeln('Обратный порядок');
for i:=1 to m div 2 do
    begin
    buf:=a[i];
    a[i]:=a[m+1-i];
    a[m+1-i]:=buf;
    end;
for i:=1 to m do
    write(a[i]:4);
readln;
end.

Var A:array[1..100] of integer;
    i,t,n:integer;
Begin
    write('Ведите размерность: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
     Begin
      A[i]:=Random(10);
      write(A[i]:2);
     End;
    writeln;
    writeln('Преобразованный массив');
    For i:=0 to n-1 do
     Begin
      if i<n-i then 
       Begin
        t:=A[n-i];
        A[n-i]:=A[i+1];
        A[i+1]:=t;
       End;
      write(A[i+1]:2);
     End;
    readln;
 End.