Fehler im Bubblesortcode?

[craash]

Guten Abend,

ich habe ein Integerarray[0..3], welches nach Größe abnehmend sortiert werden soll. Bei einem Testlauf haben alle Elemente bevor der folgende Code ausgeführt wird den Zahlenwert 0.
Hinterher hat das zweite Element (Index 1) allerdings den Wert 4. Ich komme einfach nicht dahinter wieso das so ist...

Delphi-Quellcode:

  b:= 0;
  repeat
  for a:= 0 to 3 do
    begin
    if Array_Temp[a] < Array_Temp[a+1] then
      begin
      SwapTemp:=  Array_Temp[a];
      Array_Temp[a]:= Array_Temp[a+1];
      Array_Temp[a+1]:= SwapTemp;
      end;
    end;
    Inc(b);
  until b= 3;

Wo ist mein Fehler? Hoffe ihr könnt mir weiterhelfen..


Grüße

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]