ähm, ich dachte jetzt es gehtb um die einzelnen spieler, aber egal...
da würd ich sagen: mach
spiele:array [1..14, 1..18] of integer
14=mannschaften
18=spiele
da tust du rein für jedes spiel und jede mannschaft die anzahl an punkten
zB. mannschaft 5 gewinnt spiel 15 gegen mannschaft 7
Delphi-Quellcode:
spiele[5,15]:=2;
spiele[7,15]:=0
und so weiter
und am ende sagst du
for i:=1 to 18 do punktemannschaft1:=punktemannschaft1+spiele[i];
das müsste hinhauen