Сортировка случайных чисел методом Шелла - Pascal

uses crt;
const b:array[1..5] of byte = (9,5,3,2,1);
var a:array[0..20] of integer;
    n,i,j,k,gap,temp:integer;
    w:char;
begin
randomize;
n:=10;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
writeln;
writeln;
for k:=1 to 5 do
 begin
  gap:=b[k];
  for i:=gap to n do
   begin
    temp:=a[i];
    j:=i-gap;
    while (temp<a[j]) and (j>=gap) do
     begin
      a[j+gap]:=a[j];
      j:=j-gap;
     end;
    a[j+gap]:=temp;
   end;
 
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
readln
end.