Какая сортировка лучше?Хоор v.s Пузырь

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

ncomp:=0; //число сравнений (compare)
ncopy:=0; //число копирований (copy)
for i:=9 downto 1 do
    for j:=1 to i do
        begin
        inc(ncomp);
        if a[j]>a[j+1] then
            begin
               inc(ncopy,3);
               tmp:=a[j];
               a[j]:= a[j+1];
               a[j+1]:= tmp;
            end;
        end;