array sortieren

[AlexanderBrade]

inzwischen bin ich so weit gekommen:
(Kann jemand mal Korrektur lesen?!?)

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
    Procedure BubbleSort(var B: Array of byte);
  private
    { Private-Deklarationen }

              {usw.}
Procedure BubbleSort(var B: Array of byte);
   Procedure Swap(var xx,yy:integer);
     var
      Swp: integer;
      begin
        swp:=xx;
        xx:=yy;
        yy:=swp;
      end;

var i,j : Integer;
Begin
For i:= 1 to 24 Do
   For j:= 1 To 24-1 Do
       If (B[j] > B[j+1]) Then Swap( B[j], B[j+1] );

End;

Zunächst mekkert er immer im Deklarationsteil(oben) bei der Prodedure BubbleSort(...), desweiteren missfällt ihm die if Zeile der Prozedur!