anchor.diff:        end;
       for i:=1 to 9 do
         t[i] := '';
  -    jeu(t, nomJoueur1, nomJoueur2, symJoueur1, symJoueur2);
  +    jeu(t, nomJoueur1, nomJoueur2, symJoueur1, symJoueur2, scoreJoueur1, scoreJoueur2);
       write('Une autre partie [Y/n] -> ');
       read (rep); 
       rep := upCase(rep);
  
positive.code:              scoreJoueur2 := scoreJoueur2 + 1;
               Writeln(nomJoueur2, ' vous avez gagner !'); 
             end;
         end 
      else
        for i:=1 to 9 do
          ega := ega + t[i];
        if length(ega) = 9 then
          begin
            a := false;
            writeln('Egalite !');
          end;
  
  
     end;
  end;
  
negative.code:   tab = array [1..9] of string;
    
  var
    countPartie, i, scoreJoueur1, scoreJoueur2   : integer;
    nomJoueur1, nomJoueur2    : string;
    symJoueur1, symJoueur2, rep    : char;
    bool   : boolean;
  