ich denke der fehler sitzt irgendwo in diesem teil:
Delphi-Quellcode:
for i := 1 to 10 do
begin
y := i;
while zufallszahl[y+1] < zufallszahl[y] do
begin
tauschen (zufallszahl[y], zufallszahl[y+1]);
if y > 1 then y := pred(y);
danke schonmal im vorraus...
[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]