В массиве четное количество частей поменять местами в массиве 1 с

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.