Program hagrala;
Var
   a:array  of string;
   b:array  of integer;
   c:array  of integer;
   i,l,j,m,k,r,q,n,h,g,y,e:integer;
   bool:boolean;
Begin {main}
      writeln ('Enter Number of Teams Playing');
      readln (n);
      for i:=1 to 1000 do
          c:=0;
      for i:=1 to n do
            begin {lop}
                  writeln ('Enter a Team Name, And Then Press Enter');
                  readln (a);
            end; {lop}
      i:=n;
      q:=i div 2;
      h:=1;
      for g:=1 to i-1 do
      begin
      writeln;
      writeln ('machzor ', g);
      for e:=1 to n do
          b:=0;
      r:=1;
      for L:=1 to q do
          begin {lop2}
                j:=random(i)+1;
                m:=random(i)+1;
                k:=1;
                if (m=j) then bool:=false
                   else bool:=true;
                while (k<r) and (bool=true) do
                      if (b=j) or (b=m) then bool:=false
                         else inc(k);
                y:=1;
                while (y<h) and (bool=true) do
                      if ((j=c) and (m=c)) or ((j=c) and (m=c)) then bool:=false
                         else y:=y+2;
                while (bool=false) do
                      begin {lop3}
                            j:=random(i)+1;
                            m:=random(i)+1;
                            k:=1;
                            if (m=j) then bool:=false
                               else bool:=true;
                            while (k<r) and (bool=true) do
                                  if (b=j) or (b=m) then bool:=false
                                     else inc(k);
                            y:=1;
                            while (y<h) and (bool=true) do
                                  if ((j=c) and (m=c)) or ((m=c) and (j=c)) then bool:=false
                                     else y:=y+2;
                      end; {lop3}
                writeln;
                write (a);
                write (' Against ');
                write (a);
                writeln;
                b:=j;
                b:=m;
                r:=r+2;
                c:=j;
                c:=m;
                h:=h+2;
          end; {lop2}
      end;
      writeln;
      writeln;
      writeln ('To Finish, Press Enter');
      readln;
end.