ich werd aus deinem quellcode ned ganz schlau muss ich sagen ^^
http://de.wikipedia.org/wiki/Bubblesort <-- könnte dir vielleit weiter helfen. da du keine zahlen hast versuchs mit den ordinalwerten der ersten n buchstaben...
quasi so: ( ned getestet )
Delphi-Quellcode:
procedure bubblesort(var f: Array of String);
var
i,j : Integer;
temp : string;
begin
for i:=High(f) downto Low(f)+1 do
begin
for j:=Low(f)+1 to i do
begin
if Ord( f[j-1][1] ) > Ord( f[j][1] ) then
begin
temp := f[j-1];
f[j-1] := f[j];
f[j] := temp;
end;
end;
end;
end;
[edit] kleinen fehler entdeckt.. [/edit]