1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

1. Runde
 1 2 3
 - - -
 6 5 4

2. Runde
 1 6 2
 - - -
 5 4 3

3. Runde
 1 5 6
 - - - 
 4 3 2 

usw.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TMainF.SpielplanerstClick(Sender: TObject);
VAR i,j,row,lv,lv2,spag,runde:Integer;
    spielplan: ARRAY OF Integer;
begin
row:=0;
setlength(spielplan,anzjegr);
FOR lv:=1 TO anzgr DO /// also HIER 
    BEGIN
    runde:=1;
    i:=1;
    inc(row);
    spielplan[0]:=1;
    WHILE (i<=anzjegr) DO
          BEGIN
          spielplan[i]:=anzjegr-i+1;
          inc(i);
          END;
    spag:=0;
    REPEAT
    SpielplanSG.Cells[1,row]:=gruppen[lv].mannschaften[spielplan[spag]];
    SpielplanSG.Cells[2,row]:=gruppen[lv].mannschaften[spielplan[spag+1]];
    SpielplanSG.Cells[0,row]:=IntToStr(runde);
    inc(runde);
    inc(spag);inc(spag);
    inc(row);
    UNTIL (spag)>=anzjegr;
    inc(row);
    FOR lv2:=1 TO ((2*(anzjegr))-(anzjegr+2)) DO
        BEGIN
        j:=spielplan[1];
        FOR i:=1 TO (length(spielplan)-1) DO spielplan[i]:=spielplan[i+1];
        spielplan[anzjegr-1]:=j;
        spag:=0;
        REPEAT
        SpielplanSG.Cells[1,row]:=gruppen[lv].mannschaften[spielplan[spag]];
        SpielplanSG.Cells[2,row]:=gruppen[lv].mannschaften[spielplan[spag+1]];
        SpielplanSG.Cells[0,row]:=IntToStr(runde);
        inc(runde);
        inc(spag);inc(spag);
        inc(row);
        UNTIL (spag)>=anzjegr;
        inc(row);
        END;
    END;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

  
TYPE
  Gruppe= RECORD
    Mannschaften:ARRAY [1..100] OF STRING;
    Kategorie:STRING;
VAR
Gruppen:ARRAY [1..25] OF Gruppe;
anzgr,anzjegr,anzgesamt:Integer;					

1:
2:
3:
4:
5:

    WHILE (i<=anzjegr) DO
          BEGIN
          spielplan[i]:=anzjegr-i+1;
          inc(i);
          END;					

1:
2:
3:
4:
5:
6:
7:

    
spielplan[0]:=1;
    WHILE (i<anzjegr) DO
          BEGIN
          spielplan[i]:=anzjegr-i+1;
          inc(i);
          END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
const
 Count = 18;
Var
 I, J : Integer;
 List : TStringlist;
begin
 List := TStringList.Create;
 For I := 1 to Count do
  For J := 1 to I-1 do
  List.Add(inttostr(J)+' gegen '+inttostr(I));
 while List.Count > 0 do
 begin
  J := Random(List.Count);
  Memo1.lines.add(List.Strings[J]);
  List.Delete(J);
 end;
 List.Free;
end;