38б. Помогите пожалуйста, Придумайте массив и исполните предложенный кусок программки.

задача элементы массива переместить на 2 позиции назад, а 1-ый и второй переместить на предпоследний и последний

var a,b,i:integer;

f:array[1..10] of integer;

begin

for i:=1 to 10 do

begin

f[i]:=random(11);

write(f[i],' ');

end;

a:=f[1]; b:=f[2]; for i:=1 to 8 do f[i]:= f[i+2]; f[9]:=a; f[10]:=b;

writeln;

for i:=1 to 10 do

begin

write(f[i],' ');

end;

end.