Метод Шелла

program shell;
uses wincrt;
var
  a: array[1..100] of integer;
  i, n, incr, j, x: integer;
begin
  writeln('введите размерность массива');
  readln(n);
  writeln('исходный массиы');
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  incr := n div 2;
  while incr > 0 do
  begin
    for i := incr + 1 to n do
    begin
      j := i - incr;
      while j > 0 do
        if a[j] > a[j + incr] then
        begin
          x := a[j];
          a[j] := a[j + incr];
          a[j + incr] := x;
          j := j - incr;
        end
        else
          j := 0;
    end;
    incr := incr div 2;
  end;
  readln;
  for i := 1 to n do
  begin
    write(a[i], ' ');
  end;
end.

program shell;
 
uses
  crt; //модуль который подключает clrscr, readkey
 
var
  a: array[1..100] of integer; //массив 
  i, n, incr, j, x: integer; //используемые переменые 
 
//начало программы
begin
  writeln('введите размерность массива');//читаем с экрана
  readln(n);//считываем введеное число
  writeln('исходный массиы'); 
  for i := 1 to n do //цыкл от 1 до введеного нами n
  begin
    a[i] := random(10); //заполнения случайными числами массива
    write(a[i], ' '); //вывод на экран
  end;
  
  incr := n div 2; //делим на попалам массив
  //и сортируем кажую его часть
  while incr > 0 do //пока числао больше нуля
  begin// то
    for i := incr + 1 to n do//сортировка по обычному начиная от первого элемента
    begin
      j := i - incr;
      while j > 0 do // входим в цыкл и сравниваем первый и следующий за ним элемент
        if a[j] > a[j + incr] then // если он больше него
        begin //то
          x := a[j]; //производится обмен этих элементов
          a[j] := a[j + incr];
          a[j + incr] := x;
          j := j - incr; //и уменьшения j
        end
        else // в ином случае
          j := 0;
    end;
    incr := incr div 2;
  end;
  readln;
  
  for i := 1 to n do 
  begin
    write(a[i], ' ');//вывод отсортированного массива
  end;
end.