Austausch-Sortieralgorithmus mit Prozeduren

[Aphton]

Das hier ist unfug:

Delphi-Quellcode:

procedure Ausgabe(j: Integer);
var
  i: Integer;
begin
  for i := 1 to 100 do
    Form1.ListBox1.Items.Add(IntToStr(Feld[j]));
end;

Du lässt nur das j.te Element ausgeben.. und das 100 x

Edit: + j ist nicht initialisiert so wie du ihn aufrufst (himitsu)