С решением очень надо!!!!

в программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do A[i]:=2*i;

for i:=0 to 10 do begin

k:=A[i];

A[i]:=A[10-i];

k:=A[10-i];

end;