anchor.diff:        bool := true
       else bool := false;
     until bool = false ;
  -END.+END.
  
positive.code:   tab = array [1..9] of string;
    
  var
    countPartie, i   : integer;
    nomJoueur1, nomJoueur2    : string;
    symJoueur1, symJoueur2, rep    : char;
    bool   : boolean;
  
negative.code:           until choix in [1..9];
          end;
      affichage(t, scoreJoueur1, scoreJoueur2);
      if compare(t[1], t[2], t[3], st) or compare(t[4], t[5], t[6], st) or compare(t[7], t[8], t[9], st)
       or compare(t[1], t[4], t[7], st) or compare(t[2], t[5], t[8], st) or compare(t[3], t[6], t[9], st)
       or compare(t[1], t[5], t[9], st) or compare(t[3], t[5], t[7], st) then
         begin
           a := false;
           if st = '1' then
             begin
               scoreJoueur1 := scoreJoueur1 + 1;
               Writeln(nomJoueur1, ' vous avez gagner !'); 
  