Не могу разобрать.

{ сортировка Шелла }
       procedure Shell(var item: DataArray; count:integer);
       const
         t = 5;
       var
         i, j, k, s, m: integer;
         h: array[1..t] of integer;
         x: DataItem;
       begin
         h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1;
         for m := 1 to t do
           begin
 
         k:=h[m];
         s:=-k;
         for i := k+1 to count do
         begin
           x := item[i];
           j := i-k;
           if s=0 then
           begin
             s := -k;
             s := s+1;
             item[s] := x;
           end;
           while (x<item[j]) and (j<count) do
             begin
               item[j+k] := item[j];
               j := j-k;
             end;
             item[j+k] := x;
           end;
         end;
     end; { конец сортировки Шелла }

procedure ShellSort(var a: array of Word);
var
  bis, i, j, k: LongInt;
  h: Word;
begin
  bis := High(a);
  k := bis shr 1;// div 2
  while k > 0 do begin
    for i := 0 to bis - k do begin
      j := i;
      while (j >= 0) and (a[j] > a[j + k]) do begin
        h := a[j];
        a[j] := a[j + k];
        a[j + k] := h;
        if j > k then
          Dec(j, k)
        else
          j := 0;
      end;
    end;
    k := k shr 1; // div 2
  end;
end;
 
procedure TForm1.BtnClick(Sender: TObject);
var
  my_array: array [0..10] of Word;
  s1, s2: string;
  idx: Integer;
begin
  // заполняем массив случайными числами, одновременно формируем строку
  // с исходными значениями
  Randomize;
  s1 := '';
  for idx := Low(my_array) to High(my_array) do begin
    my_array[idx] := Random(100);
    s1 := s1 + Format('%d,', [my_array[idx]]);
  end;
 
  // вызываем сортировку
  Sort(my_array);
 
  // строка результата
  s2 := '';
  for idx := Low(my_array) to High(my_array) do
    s2 := s2 + Format('%d,', [my_array[idx]]);
 
  MessageBox(GetActiveWindow, PChar(s1 + #13 + s2), nil, 0);
end;