anchor.diff:    tab = array [1..9] of string;
     
   var
  -  countPartie, i   : integer;
  +  countPartie, i, scoreJoueur1, scoreJoueur2   : integer;
     nomJoueur1, nomJoueur2    : string;
     symJoueur1, symJoueur2, rep    : char;
     bool   : boolean;
  
positive.code:       bool := true
      else bool := false;
    until bool = false ;
  END.
negative.code: 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                : boolean;
  
  function compare(valeur1, valeur2, valeur3 : string; var st : string) : boolean;
  begin
    compare := false;
    (*writeln(valeur1, valeur2, valeur3); *)
    if ((valeur1 <> '') and (valeur2 <> '')) and (valeur3 <> '') then
        if ((valeur1 = valeur2) and (valeur1 = valeur3)) and (valeur2 = valeur3) then
          begin
            compare := true;
            st := valeur1;
          end
    else
      compare := false;
  end;
  
  
  procedure affichage(t : tab; scoreJoueur1, scoreJoueur2 : integer);
  var
    i, x, y: byte;
  begin
    clrscr;
    write('       ', symJoueur1, ' % ', nomJoueur1, ' : ', scoreJoueur1, ' | ', 
  