Помогите пожалуйста решить в паскале АВC/линейные массивы.№4 вставка. В линейный массив целых чисел на 7-е место вставить число равное квадрату первого элемента.№5. Преобразование. Дан массив из четного числа элементов. Поменять местами его половины

№5
const n=10;
var A:array [1..n]of integer;
i,r:integer;
begin
   cls;
   for i:=1 to n do read(A[i]);
   for i:=1 to(n div 2)do
      begin
         r:=A[i];
         A[i]:=A[i+(n div 2)];
         A[i+(n div 2)]:=r;
      end;
   for i:=1 to n do write(A[i]:3);
end.