Bubble-Sort
Bubble-Sort,
ebenfalls sehr einfach zu programmieren.
Laufzeit 
.
Es wird in einer Schleife getestet, ob je zwei nebeneinander
liegende Elemente in aufsteigender Folge sortiert sind.
Falls nicht, werden sie getauscht.
Solange noch Elemente vertauscht werden mußten, wird
dies für alle Elemente wiederholt.
PROCEDURE bubblesort(n: integer; VAR a: sortfeld);
VAR
i: integer;
getauscht: boolean;
BEGIN
REPEAT
getauscht:=false;
FOR i:=1 TO n-1 DO BEGIN
IF a[i]>a[i+1] THEN BEGIN
swap(a[i],a[i+1]);
getauscht:=true;
END;
END;
UNTIL NOT getauscht;
END;
