Werte tauschen

[Cyberbob]

Meine sieht so aus:

Delphi-Quellcode:

var
  Changed : Boolean;
  i : Integer;
  Speicher : Integer;

Repeat
  Changed := False;
  For i := 0 To Length(a) - 2 do
  begin
    if a[i] > a[i+1] then
    begin
      Speicher := a[i];
      a[i] := a[i+1];
      a[i+1] := Speicher;
      Changed := True;
    end;
  end;
Until Changed = False;