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
