{ Bubble.Inc                                     }
{ Sortierverfahren: Bubble-Sort                  }
{ Uebergabeparameter:                            }
{        Class (das Array vom Typ StudentArray   }
{        ClassSize (Letzte Datensatznummer       }
{ Vordefiniert muss sein:                        }
{  StudentArray (TYPE StudentArray= Array Of ...)}
{  Student (Datentyp)                            }
{ Aufruf:                                        }
{ BubbleSort (DatenArray, letzter Datensatz)     }

Procedure BubbleSort   (Var Class: StudentArray;
                        ClassSize: Integer);
Var i,j: Integer; { Schleifenvariablen }

 Procedure Switch (Var Stu1, Stu2: Student);
 { Vertauscht Inhalt von zwei Variablen }
 Var TempStu: Student; { Austauschvariable }
 Begin                                  { Switch }
  TempStu:=Stu1;
  Stu1:=Stu2;
  Stu2:=TempStu;
 End;                                   { Switch }

Begin                               { BubbleSort }
 For i:=2 To ClassSize Do
 For j:=ClassSize DownTo i Do
  If Class[j-1] > Class[j] Then
   Switch (Class[j-1],Class[J]);
End;                                { BubbleSort }

{ Ende Bubble.Inc                                }