Pascal/Turbo Pascal - Grafo- coupling

{No se si esto te servirá de ayuda pero te puede dar una idea}

program fulbol;

 uses

    crt;

 type

   equipos =  array[1..20] of char;

   partidos = record

          nombre : char;

          jugados : array[1..19] of char;

        end;

  var

    encuentros : array[1..20] of partidos;

    equi : equipos;

    p, g, cont : integer;

    jugadoon, jugadooff : boolean;

  begin

      clrscr;

      cont := 1;

      g := 1;

     repeat       {tomamos los equipos}

         equi[g] := chr(64 + g);

         g := g + 1;

     until g > 20;

     for cont := 1 to 20 do    {le asignamos ribales}

     begin

     encuentros[cont].nombre := equi[cont];

       p := 1;

       for  g := 1 to 20 do

       begin

       if equi[g] <> encuentros[cont].nombre then

       begin

       encuentros[cont].jugados[p] := equi[g];

       p := p + 1;

       end;

     end;

   end;

     for p := 1 to 20 do  {partidos en 20 domingos}

     begin

       write(encuentros[p].nombre,' = ');

       for g := 1 to 19 do

          write('  ',encuentros[p].jugados[g]);

          writeln;

     end;

     readkey;

  end.

program fulbol;

uses crt;

var

k,j,x,y:integer;

begin

clrscr;

for j := 0 to 9 do

begin

writeln('J = ',j);

for k := 0 to 9 do

begin

write('K = ',k,'   ');

x:=k+j;

y:=20-k-1+j;

if y = 20 then y :=0;

if y = 21 then y :=1;

if y = 22 then y :=2;

if y = 23 then y :=3;

if y = 24 then y :=4;

if y = 25 then y :=5;

if y = 26 then y :=6;

if y = 27 then y :=7;

if y = 28 then y :=8;

writeln(x,'  ',y);

readkey;

end;

writeln;

end;

readkey;

end.

{Mira lo mismo pero mas corto}

 program fulbol;

  uses

     crt;

  var

    k, j, x, y : integer;

  begin

     clrscr;

      for j := 0 to 9 do

      begin

         writeln('J = ',j);

       for k := 0 to 9 do

       begin

        write('K = ',k,'   ');

        x := k + j;

        y := 20 - k - 1 + j;

        y := y mod 20;

        writeln(x,'  ',y);

     end;

     readkey;

     clrscr;

    end;

  end.