Bubble-Sort

[Schaedel]

Delphi-Quellcode:

for j:=anzahl downto 1 do 
        begin 
        for k:=1 to j do 
                begin 
                if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]); 
                end; 
        end;

Anzahl is die Länge des Strings.
Dann geht er rückwärts durch den string durch und vergleicht jede zahl mit den anderen im String.
wo er dann aber das sortierte zurück gibt .... seh ich gerade nicht oO