Быстрая сортировка: правильно ли подсчитывается количество сравнений и перестановок?

procedure quicksort(const N:integer; var srav,peres: longint; var A: MAS);
 
  procedure hoars(left, right:integer);
  var
    i, j, x, y: integer;
  begin
      i:=left;
      j:=right;
      x:=A[(left+right) div 2];
      repeat
        while A[i]<x do
        begin
          inc(i);
          inc(srav);
        end;
        while x<A[j] do
        begin
          dec(j);
          inc(srav);
        end;
         if i<=j then
         begin
          if a[i] > a[j] then
            begin
              y:=a[i];
              a[i]:=a[j];
              a[j]:=y;
              inc(peres);
            end;
          inc(i);
          dec(j);
         end;
    until i>=j;
      if left<j then
      hoars(left,j);
    if i<right then
    hoars(i,right);
    end;
begin
  peres := 0;
  srav := 0;
  hoars(1, n);
end;