Помогите,пожалуйста, дописать прогу. Задача : в одномерном массиве из
n элементов методом вставки отсортировать по убыванию только те элементы, которые стоят на четных позициях . Например было 742918 стало---792814
program ryryr;
uses crt;
var
a: array [1..5] of integer;
i,j,e,g:integer;
begin
for i:=1 to 5 do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=2 to 5 do
begin
e:=a[i];
j:=1;
while e<a[j] do
inc(j);
for g:=i-1 downto j do
a[g+1]:=a[g];
a[j]:=e;
end;
for i:=1 to 5 do
write(a[i],' ');
:tehnari_ru_942 :
end.