okay, mein Versuch ^^:
Delphi-Quellcode:
for i:=0 downto AnzahlEintraege-1 do
Tauschindex:=j;
for i[j]:=0 downto AnzahlEintraege-1 do
If Telefonbucheintrag[2*i]>Telefonbucheintrag[2*Tauschindex];
then TauschIndex:=i;
Tausche_Telefonbucheintrag(j,Tauschindex);
ich weiß, ich bin unfähig >.<