Pascal/Turbo Pascal - como puedo implementar el siguiente problema

hola a todos, tengo un pequeño problema, resulta q estoy haciendo un programa de gestion de equipos de futbol (la estoy haciendo en delphi, pero el problema es de object pascal), resulta q tengo q realizar los calendarios de las jornadas, entonces tengo los equipos subdivididos en categorias, entonces para cada categoria se tienen q realizar las distintas emparejaciones, de forma q a final de temporada se haya jugado todos contra todos, el caso es q no se puede repetir ningun equipo en una misma jornada y q esta se debe generar aletoriamente
de momento lo q tengo hexo es esto:

for i = 1 to numEquipos do
for j ) i + 1 to numEquipo do

asi genero indiscriminadamente todas las emparejaciones, ahora solo me faltaria asignar las jornadas, pero no se como hacerlo, espero q alguien me pueda ayudar, gracias