Разработка с использованием быстрой сортировки (по методу Хоара)

var
i,j:integer;
x,y:dataitem;
begin
 
i:=1; j:=r;
x:=it [(2+r) div 2];
repeat
while it [i]<x do i:=i+2;
while x<it [j] do j:=j-2;
if y<=j then
begin
 
j:=it[i];
it [i]:= it[j];
it [j]:=y;
i:=i+2; j:=j-2;
end;
until 2>j;
if  2 < j then qs(i,j, it);
if 2 < r then qs (i, r, it);
end;
 
begin
qs (2, count, item);
end ;
procedure quicksort (var item: dataarray; count: integer);
procedure qs (l,r:integer; var it: dataarray);
var
i,j:integer;
x,y:dataitem;
begin
 
i:=1; j:=r;
x:=it [(2+r) div 2];
repeat
while it [i]<x do i:=i+2;
while x<it [j] do j:=j-2;
if y<=j then
begin
 
j:=it[i];
it [i]:= it[j];
it [j]:=y;
i:=i+2; j:=j-2;
end;
until 2>j;
if  2 < j then qs(i,j, it);
if 2 < r then qs (i, r, it);
end;
 
begin
qs (2, count, item);
end;
begin
writeln('Исходный массив:');
for i:=1 to n do
  begin
   x[i]:=random(20);
   write(x[i]:4);
  end;
writeln;
writeln('Массив после сортировки: ');
for i:=1 to n do
write(x[i]:4);
end.

var a, o : array of Integer;
 
procedure qSortU(L, R : Integer);
begin
  var (i,j,x) := (L,R,a[o[(L + R) div 2]]);
  repeat
    while a[o[i]] < x do i += 1;
    while a[o[j]] > x do j -= 1;
    if i <= j then begin if a[o[i]] > a[o[j]] then Swap(a[o[i]],a[o[j]]); i += 1; j -= 1; end;
  until i >= j;
  if L < j then qSortU(L, j);
  if i < R then qSortU(i, R);
end;
 
procedure qSortD(L, R : Integer);
begin
  var (i,j,x) := (L,R,a[o[(L + R) div 2]]);
  repeat
    while a[o[i]] > x do i += 1;
    while a[o[j]] < x do j -= 1;
    if i <= j then begin if a[o[i]] < a[o[j]] then Swap(a[o[i]],a[o[j]]); i += 1; j -= 1; end;
  until i >= j;
  if L < j then qSortD(L, j);
  if i < R then qSortD(i, R);
end;
 
begin
  a := ArrRandomInteger(20,10,99);
  a.Println;
  
  /// Сортируем нечётные по убыванию
  o := a.Select((x,i)->(x,i)).Where(x->odd(x[0])).Select(x->x[1]).ToArray;
  qSortD(0, o.Count-1);
  
  /// Сортируем чётные по возрастанию
  o := a.Select((x,i)->(x,i)).Where(x->Not odd(x[0])).Select(x->x[1]).ToArray;
  qSortU(0, o.Count-1);
 
  a.Println;
end.

var
  a, o: array of integer;
 
procedure qs(L, R: Integer; order: integer);
begin
  var i := L; var j := R; var x := a[o[(L + R) div 2]];
  repeat
    while Sign(a[o[i]] - x) = order do i += 1;
    while Sign(a[o[j]] - x) = -order do j -= 1;
    if i <= j then begin if Sign(a[o[i]] - a[o[j]]) = -order then Swap(a[o[i]], a[o[j]]); i += 1; j -= 1; end;
  until i >= j;
  if L < j then qs(L, j, order);
  if i < R then qs(i, R, order);
end;
 
begin
  a := ArrRandomInteger(20, 10, 99);
  a.Println;
  o := a.IndexesOf(x -> not Odd(x)).ToArray;
  qs(0, o.Count - 1, -1);
  o := a.IndexesOf(x -> Odd(x)).ToArray;
  qs(0, o.Count - 1, 1);
  a.Println;
end.