Найти ошибку карманная(распределительная) сортировка

[Grynyuk]

Есть 2 процедуры - 1 для сортировки карманов вторая для сортировки массиву методом карманной сортировки.
Ошибок нет но результат - массив не сортируется. Помогите исправить

procedure QSort(first,last:integer);
      var
         L,R,c,X:integer;
      begin
         if first < last then
         begin
            X:= b[i,(first + last) div 2];
            L:= first;
            R:= last;
            while L <= R do
            begin
                while b[i,L] < X do
                   L:= L + 1;
                while b[i,R] > X do
                   R:= R - 1;
                if L <= R then
                begin
                   c:=b[i,L];
                   b[i,L]:=b[i,R];
                   b[i,R]:=c;
                   L:=L+1;
                   R:=R-1;
                end;
             end;
     QSort(first, R);
     QSort(L, last);
     end;
   end;

Procedure BucketSort(var m:array[1..10]of word);
begin
for i:=1 to n do
      begin
         b[(a[i] div 10)+1,razmer[(a[i] div 10)+1]+1]:=a[i];
         razmer[(a[i] div 10)+1]:=razmer[(a[i] div 10)+1]+1;
      end;
      for i:=1 to 10 do
         if razmer[i]<>0 then Qsort(1,razmer[i]);
      k:=0;
      for i:=1 to 10 do
      for j:=1 to razmer[i] do
      begin
         k:=k+1;
         a[k]:=b[i,j];
      end;
end;
Procedure Swap(Var a, b: word);
Var p: word;
begin
  p := a;
  a := b;
  b := p;
end;

[Grynyuk]

все еще нужна помощь