Sortiervorgang kleinste wert nach vorne holen

[Uwe Raabe]

Ich vermute, du willst einen Bubble-Sort implementieren:

Delphi-Quellcode:

for I:=1 to 100-1 do
  for J:=I+1 to 100 do 
    if Z[J] < Z[I] then begin
      Hilf := Z[I];
      Z[I] := Z[J];
      Z[J] := Hilf;
    end;