Массивы! Помогите пожалуйста! Опции

[bestlover]

Упорядочить каждые вторы элементы всего массива по убыванию квадратов значений

[amega]

в каждой сортировки есть 2 цикла я ток видел 1

вот то что предлагаю я:

i:=1;
repeat
j:=i+2;
        repeat 
              if sqr(a[i])<sqr(a[j]) then  //проверяем условие
                         begin
                                 x:=a[i];
                                 a[i]:=a[i];
                                a[j]:=x;
                         end;
        j:=j+2;                               //увеличуем на 2 поскольку через 1
     until j>=count;                        //условие выхода из цикла
i:=i+2;                                      //увеличуем на 2 поскольку через 1
until i>=count;