außerdem würde ich gerne wissen, wie bei folgendem Quelltext eine äußere Schleife den Sortiervorgagn automatisiert.
Code:
procedure TForm1.Button1.Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to laenge -1 do begin
if meinFeld[i]> meinFeld[i+1] then begin
Tausch(meinFeld[i], meinFeld[i+1]);
end;
end;
end;