Неправильно понял сортировки Шелла с последовательностью Кнута

program Alg_lab2;
uses crt;
const
n=100;
type
mas=array[1..n] of integer;
mas2=array[1..9] of integer;
var
i,j:longint;
y,m,h:integer;
sum,b_sum:longint;
mass:mas;
procedure hell(mass:mas;i,j:longint;sum:longint);
var
knu,k,p,t:integer;
mk:mas2;
 
begin
knu:=round(ln(n)/ln(2))-1;
mk[1]:=1; //Вот тут скорее всего 
  for i:=2 to knu do
      mk[i]:=2*mk[i-1]+1; //"мамудрил"
    for p:=knu downto 1 do
          for  i:=mk[p]+1 to n do begin
          t:=mass[i]; j:=i-k;
          while (j>0) and (t<mass[j]) do
          begin
          mass[j+k]:=mass[j];
          j:=j-k;
          end;
          mass[j+k]:=t;
                          end;
for i:=1 to n do
        sum:=sum+mass[i];
       // end;
j:=1;
for i:=1 to n-1 do
        if mass[i]>mass[i+1] then j:=0;
 
if j=1 then writeln('В массиве только 1 серия')
                            else writeln('Массив отсортирован неправильно!');
for i:=1 to n do 
    if (i mod 10 = 0) then
                           writeln(mass[i],' ')
                else       write(mass[i],' ');
writeln('Сумма:',sum);       
end;
 
BEGIN
randomize;
for i:=1 to n do
        begin
        mass[i]:=random(100);
        b_sum:=b_sum+mass[i];
        end;
writeln('Сумма до сортировки:',b_sum);
hell(mass,i,j,sum);
END.