Problem mit dem Sortieren

[Tiny]

Hi!
Also ich muss für die Schule ein Projekt machen und habe mich für einen ligamanager entschieden. Nun hab ich aber ein Problem, ich möchte mit dem Bubble - Sort sortieren, aber irgendwie klappt dies nicht ganz.
Kuzr zur Erklärung: Es gibt 10 Mannschaften mit maximal 14 Spielern. Diese Spieler sollen nach ihrer erreichten Gesamtpunktzahl sortiert werden (Es gibt eine Auswärts- und Heimpunktzahl). Es muss aber nicht sein, dass ein Spieler ein Auswärts- und ein Heimspiel gemacht hat.

Mein Problem ist, dass er die Spieler nur innerhalb der Mannschaft sortiert und nicht unter allen 10 Mannschaften. Weiterhin werden die Mitglieder, die mit einer Gesamtzahl von 0 dastehen nicht nach unten gesetzt, sondern stehen mittendrin.

Kann mir vielleicht jemand helfen und sagen, was daran falsch ist?

Delphi-Quellcode:

repeat
 teta := true;
 for i := 1 to 139 do
 begin
        t1 := spieler[i].Heimspiele + spieler[i].Auswspiele;
        t2 := spieler[i+1].Heimspiele + spieler[i+1].Auswspiele;
        if (t1 <> 0) and (t2 <> 0) then
                if ((spieler[i].Heimpunkte + spieler[i].Auswpunkte) / t1) < ((spieler[i+1].Heimpunkte + spieler[i+1].Auswpunkte) / t2) then
                begin
                        teta := false;
                        hlp := spieler[i];
                        spieler[i] := spieler[i+1];
                        spieler[i+1] := hlp;
                end
        else
                begin
                        if (t1 = 0 ) and (t2 <> 0) then
                        begin
                                teta := false;
                                hlp := spieler[i];
                                spieler[i] := spieler[i+1];
                                spieler[i+1] := hlp;
                       end;
                end;
 end;
 until teta;

Danke! Gruß Tiny

[edit=sakura] [delphi]-Tags gesetzt. Mfg, sakura[/edit]