Frage: Warum funtioniert dieses bublbesort nicht?

[DeddyH]

SwapValues könnte z.B. so aussehen:

Delphi-Quellcode:

procedure SwapValues(var a,b: integer);
begin
  a := a xor b;
  b := b xor a;
  a := a xor b;
end;

{Verständlichere Variante mit einer Hilfsvariablen:
procedure SwapValues(var a,b: integer);
var temp: integer;
begin
  temp := a;
  a := b;
  b := temp;
end;}

[edit] Der Sinn des Vergleichsarrays ist mir in Deinem Code verborgen geblieben, zumal Du das zu sortierende Array damit vergleichst [/edit]