Поменять местами две половинки массива

uses crt;
 
const n=16;
 
var
a:array [1..n] of integer;
i,x,y:integer;
 
begin
  for i:=1 to n do
     begin
     randomize;
     a[i]:=random(20)+1;
     end;
  writeln;
writeln('Элементы массива "А":');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
  for i:=1 to n do
     begin
     if a[i]<10 then a[i]:=a[i]*a[i];
     end;
writeln('Новый массив "А":');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
end.

uses crt;
 
const n=10;
 
var
a:array [1..n] of integer;
i,x,j,y:integer;
 
begin
  for i:=1 to n do
     begin
     randomize;
     a[i]:=random(5)+1;
     end;
  writeln;
writeln('Ýëåìåíòû ìàññèâà "À":');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
writeln('Ýëåìåíòû ïåðâîé ïîëîâèíû ìàññèâà:');
   for j:=1 to n div 2 do
     write(a[j]:3);
     writeln;
writeln('Ýëåìåíòû âòîðîé ïîëîâèíû ìàññèâà:');
   for i:=(n div 2)+1 to n  do
     write(a[i]:3);
     writeln;
writeln('Ïîëîâèíêè ïîìåíÿëè ìåñòàìè:');
    for i:=(n div 2)+1 to n  do
     write(a[i]:3);
    for j:=1 to n div 2 do
     write(a[j]:3);
    writeln;
 
end.

uses crt;
 
const n=10;
 
var
a:array [1..n] of integer;
i,x,j,y:integer;
 
begin
j:=1;
  for i:=1 to n do
     begin
     randomize;
     a[i]:=random(5)+1;
     if i mod 2=0 then
     if odd(a[i]) then
     j:=j*a[i];
     end;
  writeln;
  for i:=1 to n do
     write(a[i]:2);
  writeln;
  
Writeln('Произведение нечетных по значению элементов, стоящих на четных номерах = ',j);
     
 
 
end.