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

№5const 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.