Mergesort sortiert nicht...

[DAZZLE]

Ja den Fehler habe ich schon erfolgreich behoben... nur leider sortiert er scheinbar immer noch nicht die eingegebenen Zahlen nach der Größe...

Ich bin über alle Vorschläge dankbar...
Wäre auch über ein Funktionierendes Programm dankbar wenn es sowas gibt.

Hier mein jetziges Programm:

Delphi-Quellcode:

procedure TForm1.btu_SortierenClick(Sender: TObject);

var
vZaehlerEinlesen:integer;
begin

//Einlesen der Listbox in das List-Array

For vZaehlerEinlesen:=0 to cZahlen-1 do
 begin
 List[vZaehlerEinlesen+1]:=strtoint(Ltb_Eingabe.Items[vZaehlerEinlesen]);
 end;


 Mergesort(List);
 for vZaehler1:=0 to cZahlen do
 begin
 ltb_Ausgabe.Items.Add(IntToStr(List[vZaehler1]));
 end;

end;//procedure TForm1.btu_SortierenClick(Sender: TObject);


//******************************************************************************


procedure TForm1.Mergesort (var List:array of integer);
var
vZahlx,vZahly,vZahlz,vZaehlerEinlesen,vlaenge :integer;
h_array1, h_array2 :array of integer;

begin

vlaenge:= length(List);

//Festlegen der längen der Beiden SortierArrays
Setlength (h_array1, vlaenge div 2);
Setlength (h_array2,(vlaenge + 1) div 2);

//Aufteilen des ListArrays auf die Einzelarrays
for vZahlx:=0 to vlaenge div 2 - 1 do
  begin
  h_array1[vZahlx]:=List[vZahlx];
  end;

for vZahly:=0 to (vlaenge + 1) div 2 - 1 do
  begin
  h_array2[vZahly]:=List[vZahly+((vlaenge) div 2)];
  end;


// Sortieren der Array mit "mergesort"
//if vlaenge > 2 then
if vlaenge > 2 then
  begin
  mergesort(h_array1);
  mergesort(h_array2);
  end;

  vZahlz:=0;

//
 while (length(h_array1) <> 0) and (length(h_array2) <>0) do
  begin 
  If h_array1[0] < h_array2[0] then
    Begin
    List[vZahlz] := h_array1[0];

    for vZahlx:=0 to length(h_array1)-2 do
      h_array1[vZahlx]:=h_array1[vZahlx+1];

    Setlength (h_array1,length(h_array1)-1);
    end 
  Else 
    begin
    List[vZaehler1]:=h_array2[0];

    for vZahly:=0 to length(h_array2)-2 do
      h_array2[vZahly]:=h_array2[vZahly+1];

    setlength(h_array2,length(h_array2)-1);
    end;
  vZaehler1:=vZaehler1+1;
  end; 

if length(h_array1)<>0 then
  for vZahlx:=0 to length(h_array1)-1 do
    begin 
    List[vZaehler1]:=h_array1[vZahlx];
    vZaehler1:=vZaehler1+1;
    end; 

if length(h_array2)<>0 then
  for vZahly:=0 to length(h_array2)-1 do
    begin 
    List[vZahlz]:=h_array2[vZahly];
    vZaehler1:=vZaehler1+1;
    end;


end;//procedure TForm1.btu_ZufallClick(Sender: TObject);