brauch hilfe zum Thema Sortieralgorithmus !!!Dringend!!!

[Jacqybaby]

Ok ich bin soweit fertig mit dem Projekt jetzt fehlt mir nur noch ein Algorithmus zum Thema sortieren durch einfügen und das Messen der benötigten Zeit, kann mir jemand sagen wie das gehen soll ? Kann mir nicht vorstellen, dass das funktioniert. kennt jemand noch einen anderen Algorithmus zum sortieren duch Einfügen außer dem hier:

Delphi-Quellcode:

  
procedure TForm1.whileschleife(n:integer; var h:array of integer);
var i,j,li,re,m,x:integer;
begin
for i:=2 to n Do
begin
     x:=h[i];
     li:=1;
     re:=i-1;
              while li<=re do
              begin
              m:=(li+re)div 2;
              if x<h[m] then re:=m-1 else li:=m+1
              end;

     For j:=i-1 downto li do h[j+1]:=h[j];
     h[li]:=x;
     end;
end;

???

MFG Jacqybaby