Sistema Todos contra todos

[JAI_ME]

Buenas estoy desarrollando una aplicación en delphi 6 donde debo realizar un sorteo en la modalidad todos contra todos para un torneo de fútbol, ya lo he desarrollado siguiendo los siguientes pasos y funciona perfecto.

Numero de Equipos = 6
Numero de Fechas = 5 (N-1)
Numero de encuentros x fecha = 3 (N / 2)

donde N es el numero de Equipos, este valor es variable y por motivo de ejemplo he puesto un número pequeño.

y el algoritmo que realiza el sorteo lo hago con la siguiente lógica

EQ1 EQ2 EQ3 EQ4 EQ5 EQ6 ---> fecha 1
EQ1 EQ6 --> encuentros fecha 1
EQ2 EQ5
EQ3 EQ4

EQ1 EQ6 EQ2 EQ3 EQ4 EQ5 ---> fecha 2
EQ1 EQ5 --> encuentros fecha 2
EQ6 EQ4
EQ2 EQ3

EQ1 EQ5 EQ6 EQ2 EQ3 EQ4 ---> fecha 3
EQ1 EQ4 --> encuentros fecha 3
EQ5 EQ3
EQ6 EQ2

.
.
.
.

de esa manera continuo hasta que se cumplan el numero total de las fechas, que en este caso son 5.

como les había comentado todo esto ya lo he desarrollado y funciona perfecto.

pero cuando lo iba a entregar me dice el cliente que por motivos de tiempo y cuando tiene muchos equipos por ejemplo 18, no le alcanza el día para que se efectúen todos los partidos, y me pidió le agregue un campo que seria el numero de encuentros a jugar por fecha.

fue allí donde me daño todo el planteamiento que había realizado anteriormente.

les pido su ayuda por si acaso alguien ha desarrollado un sistema parecido que por favor me explique la formula para que no se repita ningún encuentro, hay que tener en cuenta que al disminuir el numero de encuentros aumentaría el numero de fechas.

en otras palabras el cliente me ha dicho que si el tiene 18 equipos el sistema como lo tengo ya desarrollado genera 9 encuentros (normalmente es así), pero solo en el día se pueden efectuar 7 encuentros y los otros 2 descansan para la siguiente fecha, y así sucesivamente hasta que se terminen todas las fechas.

les agradezco cualquier ayuda que me puedan brindar. mil gracias.