В массиве четное количество элементов поменять местами в массиве 1 с последним 2 с предпоследним и т.д

Const NN=50;
var
a:array [1..NN] of integer;
i,n,k:integer;
begin
  write(Введите кол-во эл-тов массива: );
  readln(n);
  for i:= 1 to n do
  begin
    a[i]:=random(50);
    write(a[i], );
  end;
  writeln;
  for i:= 1 to n div 2 do
  begin
    k:=a[i];
    a[i]:=a[n-i+1];
    a[n-i+1]:=k;
  end;
  for i:= 1 to n do write(a[i], );
end.