Процедура сортировки с подсчётом перестановок и сравнений (Паскаль)

[Паскалька^^]

Ребят, помогите, пожалуйста, написать процедуры сортировки массива Шелла и Хоара с подсчётом перестановок и сравнений...

Для Хоара вроде написала, но есть ошибка...а в чём - не пойму((

procedure QuickSort (var item:array of byte; l,cnt:longint; var sr, per:longint);

  function more_than (a,b:longint):boolean;
  begin
    more_than:= a <= b;
    inc(sr);
  end;

  procedure qs(l,r:longint; var it:array of byte);
  var
    i, j: longint;
    x, y: longint;
  begin
    sr:=0; per:= 0;
    i:=l; j:=r;
    x:=it[(l+r) div 2];
    repeat
        while it[i]<x do i := i+1;
        while x<it[j] do j := j-1;
        if more_than (y, j) then begin
            y := it[i];
            it[i] := it[j];
            it[j] := y;
            i := i+1; j := j-1;
            inc(per);
        end;
    until i>j;
    if l<j then qs(l, j, it);
    if l<r then qs(i, r, it)
  end;

begin
  qs(l,cnt,item);
end;