Сортировка массива способом Шелла "степени двойки"

[xxxPascalxxx]

Большая просьба.
Формируем случайный массив (случайные числа в диапазоне от 0 до 10*N, N - размерность массива)
После чего его надо отсортировать выше указанным способом.
Если можете, напишите код сортировки пожалуйста. Спасибо заранее.

[Stilet]

Вот из ДелфиВорлд:

 { Соpтиpовка Шелла }
 Procedure Sort( var a : array of integer);
 Var d, i, t : integer;
    k : boolean; { пpизнак пеpестановки }
   begin
   d:=N div 2;  { начальное значение интеpвала }

   while d>0 do begin { цикл с yменьшением интеpвала до 1 }

     { пyзыpьковая соpтиpовка с интеpвалом d }
     k:=true;
     while k do begin  { цикл, пока есть пеpестановки }
       k:=false; i:=1;
       for i:=1 to N-d do begin
         { сpавнение эл-тов на интеpвале d }
         if a[i]>a[i+d] then begin
           t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t; { пеpестановка }
           k:=true;  { пpизнак пеpестановки }
           end; { if ... }
         end; { for ... }
       end; { while k }
     d:=d div 2;  { yменьшение интеpвала }
     end;  { while d>0 }
 end;

Еси ниче не напутал )

[xxxPascalxxx]

Большое спасибо!