quick sort i proste wstawianie razem :)

Mam pytanko bo chce połączyć 2 sortowania quick sort i proste wstawiane tak aby gdy quick sort będzie już miał mniej niż 20 alementów do posortowania aby sortowało sie wtedy prostym wstawianiem :) poniżej obie procedury, jak je połączyć? :)

procedure wstawianie();
var
i, x : byte;
k:integer;
begin
for i := 2 to n do
begin
x := a [ i ];
k := i - 1;
while ( k >= 1) AND ( x < a [ k ] ) do
begin
a [ k+1 ] := a [ k ];
k := k - 1;
end;
a [ k+1 ] := x;
end;
end;

=================

i quick sort

Procedure quicksort(Od,Do_ : Integer);
Var
i,j : Integer;
x,temp : Integer;
Begin
i:=Od;
j:=Do_;
X:=a[ (Od+Do_) div 2];
Repeat
While a[i]<x do i:=i+1;
While x<a[j] do j:=j-1;
if i<=j Then
Begin
Temp:=a[i];
a[i]:=a[j];
a[j]:=Temp;
i:=i+1;
j:=j-1;
End;
Until i>j;
if Od<j Then quicksort(Od,j);
if i<Do_ Then quicksort(i,Do_);
End;