Bubble-Sort

[netscanner]

Hallo,

ich habe grade ein bissell nach dem Sortier-Algo Bubble-Sort gesucht hab da auch was gefunden:

Delphi-Quellcode:

procedure vertauschen(var a, b: Char);
var h: Char; 
begin 
h:= a; 
a:= b; 
b:= h; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var word1, word2 : string; 
    anzahl,j,k,w:integer; 
begin 
word1:=edit1.text; 
word2:=edit1.text; 
anzahl:=length(word1); 

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; 

edit2.text:=word2; 
end;

ist ja auch schön und gut...könnte mir jetzt nur mal bitte jemand die procedur vertauschen erklären...
Außerdem kappier ich das ab der 1. for - Schleife nicht wirklích