Подскажите как решить задачу на Delghi

[Nastya123]

Дан одномерный целочисленный массив из 10 столбцов. Нужно упорядочить элементы массива таким образом, чтобы сначала шли элементы с нечётными номерами, а затем с чётными.Подскажите, пожалуйста, как это сделать.

[AlexanderKs]

var
ak,kon,i,c:integer;
mas:array [1..10] of integer;

................

 c:=2;
 i:=c;
 kon:=9;
   while kon>=6 do begin
      ak:=mas[i];
      mas[i]:=mas[i+1];
      mas[i+1]:=ak;
      if i<>kon-1 then i:=i+2
        else begin
          c:=c+1;
          i:=c;
          kon:=kon-1;
        end;
   end;

mas - массив, элементы которого нужно поменять местами.

[Nastya123]

Большое спасибо за помощь