Условие не полностью видно, но насколько я понял, начальные значения элементов массива равны 1..10. Вот программа, которая выводит 7 элемент после обработки массива.

var i,b:integer;

a:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);

begin

for i:=1 to 10 do a[i]:=i*i;

b:=a[10];

for i:=0 to 8 do a[10-i]:=a[9-i]; a[i]:=b;

writeln(a[7]); //выводим значение седьмого элемента

end.