code:
procedure sort_shell (var a:array of word);

var

  bis,i,j,k,h:int64;

begin

  bis:=high(a);

  k:=bis shr 1; 

  While k>0 do

  Begin

    For i:=1 To bis-k do

    begin

      j:=i;

      While (j>=1) And  (a[j]>a[j+k]) do

      begin

        h:=a[j];

        a[j]:=a[j+k];

        a[j+k]:=h;

        dec(j);   

      end;

    end;

    k:=k shr 1; 

  End;

End;

bis - длинна массива
к - шаг сортировки

Херасе. Дневниг ещо жыв. Буду песадь суда тупые бояна и складывать ненужный хлам. Во имя бугаги!
Алюминь!