Посчитать количество сравнений в сортировке Хоара(паскаль)

[semak]

делаю лабу по структуре данных, задача определить какой метод сортировки лучше?хоар или пузырек, для этого нужно посчитать кол-во сравнений элементов и копирований. вот код

1. uses crt;
   Const N=8;
   Type
   Mas=array[1..n] of integer;
   var
   z: mas;
   a: mas;
   k,i,j,tmp,ncomp,ncopy: integer;
   
   function Part(l,r: integer):integer;
   var v, i, j, b: integer;
   begin
   V:=a[r];
   I:=l-1;
   j:=r;
   ncomp:=0;
   ncopy:=0;
   repeat
   repeat
   
   dec(j) ;
   inc(ncomp);
   until (a[j]<=v) or (j=i+1);
   repeat
   
   inc(i) ;
   inc(ncomp);
   until (a[i]>=v) or (i=j-1);
   
   b:=a[i];
   inc(ncopy);
   a[i]:=a[j];
   a[j]:=b;
   inc(ncomp);
   until i>=j;
   inc(ncopy);
   a[j]:=a[i]; inc(ncopy);
   
   a[i]:= a[r];
   a[r]:=b;
   part:=i;
   end;
   procedure QuickSort(l,t: integer);
   var i: integer;
   begin
   inc(ncomp);
   if l<t then
   begin
   inc(ncomp);
   i:=part(l, t);
   QuickSort(l,i-1);
   QuickSort(i+1,t);
   end;
   end;
   
   begin
   clrscr;
   for k:=1 to 8 do
   begin
   readln(a[k]);z[k]:=a[k];
   end;
   QuickSort(1,n);
   writeln;
   writeln('вывод значений методом Хоара comp= ',ncomp,' ncopy= ',ncopy);
   
   
   ncomp:=0; //число сравнений (compare)
   ncopy:=0; //число копирований (copy)
   for k:=1 to n do
   write(a[k]:4);
   writeln;
   
   for i:=7 downto 1 do
   for j:=1 to i do
   begin
   inc(ncomp);
   if z[j]>z[j+1] then
   begin
   inc(ncopy);
   tmp:=z[j];
   z[j]:= z[j+1];
   inc(ncopy);
   z[j+1]:=tmp;
   
   
   end;
   end;
   
   write('вывод значений пузырьком comp= ',ncomp,' ncopy= ',ncopy);
   for i:=1 to n do
   write(z[i]:4);
   writeln;
   
   
   end.

В пузыре счетчики вроде прально работают, проблема с Хоаром) подскажите ошибки, и кто знает куда поставить счетчики в хоаре