Sortieren durch direktes Einfügen

[KermitFrosch]

Ich bin Schüler und soll diesen Algorithmus anwenden. Doch mein prog spinnt ein wenig und ich weiß nicht woran es liegt.

Es soll die in einem Array vorgegebenen zahlen
sortieren...
wenn ich mein prog nun starte stehen die Zahlen 10,10,13 da und ich habe keine Ahnung warum
Hier is es mal:

Delphi-Quellcode:

 procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
 for i:=1 to anzahl do
  begin
 Zahl[0]:=0;
 Zahl[1]:=8;
 zahl[2]:=10;
 zahl[3]:=7;
 zahl[4]:=13;
  edtunsort.Text:=edtunsort.Text +  IntToStr (zahl[i]) + ', ';
  end;
end;

procedure TForm1.BtnSortClick(Sender: TObject);
var
x,i,j:Integer;
 begin
  for i:=2 to anzahl do
   begin
    x:=zahl[i];
    zahl[0]:=x;
    j:=i-1;
    While x < zahl[j] do
     begin
      zahl[j+1]:=zahl[j];
      j:=j-1;
     end;
    zahl[j+1]:=x;
    edtsort.text:=edtsort.Text + InttoStr (zahl[i]) + ', ';

    end;

    end;

[APP]

Hallo Kermit,

Ich empfehle dir mal hier
http://www.delphipraxis.com/topic623...verfahren.html
nachzusehen, da gibt es einen Algo zu "Sortieren durch direktes Einfügen".