Сортировка методом Шелла

const
  Quarter = 10;
  Size = 4 * Quarter; { Чтобы гарантировать, что число элементов будет нацело делиться на 4 }
 
 
procedure ShellSort(var A : array of Integer;
                    start, N : Integer; ascend : boolean);
var
  i, j, step, tmp : Integer;
begin
  step := N div 2;
  while step > 0 do
  begin
    for i := step to N do
    begin
      tmp := A[start + i];
      j := i;
      while (j >= step) and (A[start + j - step] > tmp = ascend) do
      begin
        A[start + j] := A[start + j - step];
        dec(j, step);
      end;
      A[start + j] := tmp;
    end;
    step := step div 2;
  end;
end;
 
procedure PrintArray(s : string; const A : array of integer);
var i : Integer;
begin
  writeln(s);
  for i := 0 to High(A) do write(a[i]:4);
  writeln;
end;
 
Type
  TArray = array[0 .. Pred(Size)] of Integer;
 
var
  a : TArray;
  i, min_ix : Integer;
begin
  Randomize;
  for i := 0 to pred(size) do a[i] := random(100);
  PrintArray('before sort:', a);
 
  ShellSort(a, 0, pred(quarter), true);
  ShellSort(a, 3*quarter, pred(quarter), false);
  PrintArray('after sort:', a);
 
  min_ix := quarter;
  for i := quarter to pred(3*quarter) do
    if a[i] < a[min_ix] then min_ix := i;
  writeln('min in unsorted part: a[', min_ix,'] = ',a[min_ix]);
end.

const
  Quarter = 10;
  Size = 4 * Quarter;{ Чтобы гарантировать, что число элементов будет нацело делиться на 4 }
 
 
procedure ShellSort(var A: array of Integer;
                    start, N: Integer; ascend: boolean);
var
  i, j, step, tmp: Integer;
begin
  step := N div 2;
  while step > 0 do
  begin
    for i := step to N do
    begin
      tmp := A[start + i];
      j := i;
      while (j >= step) and (A[start + j - step] > tmp = ascend) do
      begin
        A[start + j] := A[start + j - step];
        dec(j, step);
      end;
      A[start + j] := tmp;
    end;
    step := step div 2;
  end;
end;
 
procedure PrintArray(s: string; const A: array of integer);
var
  i: Integer;
begin
  writeln(s);
  for i := 0 to High(A) do write(a[i]:4);
  writeln;
end;
 
type
  TArray = array of Integer;
 
var
  a: TArray;
  i, min_ix: Integer;
 
begin
  Randomize;
  setlength(a, size);
  for i := 0 to pred(size) do a[i] := random(100);
  PrintArray('before sort:', a);
  
  ShellSort(a, 0, pred(quarter), true);
  ShellSort(a, 3 * quarter, pred(quarter), false);
  PrintArray('after sort:', a);
  
  min_ix := quarter;
  for i := quarter to pred(3 * quarter) do
    if a[i] < a[min_ix] then min_ix := i;
  writeln('min in unsorted part: a[', min_ix, '] = ', a[min_ix]);
end.