anchor.diff:  end;
   
   
  -procedure jeu(var t : tab; nomJoueur1, nomJoueur2 : string; symJoueur1, symJoueur2 : char;
  -               var scoreJoueur1, scoreJoueur2 : integer);
  -var
  -  i, choix : integer;
  -  e   : integer;
  -  ega, st              : string;
  -  a, tourJoueur1, tourJoueur2,cho                : boolean;
  +procedure jeu(t : tab; nomJoueur1, nomJoueur2 : string; symJoueur1, symJoueur2 : char;
  +               var scoreJoueur1, scoreJoueur2 : integer; mode : byte);
  +var
  +  tour                        : integer;
  +  a, tourJoueur1, tourJoueur2 : boolean;
   
   function compare(valeur1, valeur2, valeur3 : string; var st : string) : boolean;
   begin
  
positive.code:   if scoreJoueur2 > scoreJoueur1 then
      writeln('Bien Joue ', nomJoueur2); 
  END.
  
  
negative.code:        end;
  end;
  
  procedure saisieCase(var t : tab; nomJoueur : string; joueur : byte );
  var
    choix : byte;
    cho   : boolean;
  begin
    repeat
      cho := false;
      if joueur <> 3 then
        begin
          textcolor(blue);
          write(nomJoueur);
          textcolor(Lightgray);
          write(' entrer un nombre entre [1, 9] -> ');readln(choix);
        end
      else 
        begin
          randomize;
          choix := random(9) + 1;
        end;
      if t[choix] = '' then
        begin
          if joueur = 1 then
             t[choix] := '1'
          else t[choix] := '0';
          cho := true;
        end;
    until (choix in [1..9]) and cho;
  end;
  
  begin
    a := true;
    randomize;
    tour := random(2);
    if tour = 1 then
  	begin
  	  tourJoueur1 := true;
  	  tourJoueur2 := false;
  	end
    else
  	begin
  	  tourJoueur1 := false;
  	  tourJoueur2 := true;
  	end;
    while a do
      begin
        affichage(t, scoreJoueur1, scoreJoueur2);
        if tourJoueur1 then
          begin
            saisieCase(t, nomJoueur1, 1);
            tourJoueur1 := false;
            tourJoueur2 := true;
          end;
        affichage(t, scoreJoueur1, scoreJoueur2);
        check(t, a, scoreJoueur1, scoreJoueur2);
  