Упорядочить массив следующим образом: сначала идут четные значения, затем нечетные

for i := 1 to n div 2 do begin 
  swap(a[i], a[2 * i]); // меняет значения местами
end; // этим циклом делаем так, чтобы сначала шли все элементы с четными индексами, а потом с нечетными
sort(a, a + n div 2); // любая сортировка подойдет
sort(a + n div 2 + 1, a + n);  // любая сортировка подойдет

Var
  m   : array[1..50] of Integer;
  i,j : Byte;
 
Procedure Swap(Var a,b : Integer);
Begin
  a:=a+b;
  b:=a-b;
  a:=a-b;
end;
 
Begin
  For i:=1 to 50 do
  Begin
    m[i]:=i;
    Write(m[i]:3);
  end;
  Writeln;
  
  i:=1;
  j:=50;
  While (i<=50 div 2) and (j>=50  div 2) do
  Begin
    Swap(m[i],m[j]);
    Inc(i,2);
    Dec(j,2);
  end;
  
  For i:=1 to 24 do
    For j:=i+1 to 25 do
    Begin
      If m[j]<m[i] then Swap(m[i],m[j]);
      If m[j+25]<m[i+25] then Swap(m[i+25],m[j+25]);
    end;
      
  For i:=1 to 50 do Write(m[i]:3);
  Writeln;
end.