anchor.diff:    i, choix : integer;
     e   : integer;
     ega, st              : string;
  -  a, tourJoueur1, tourJoueur2                : boolean;
  +  a, tourJoueur1, tourJoueur2,cho                : boolean;
   
   function compare(valeur1, valeur2, valeur3 : string; var st : string) : boolean;
   begin
  
positive.code:       bool := true
      else bool := false;
    until bool = false ;
  END.
  
negative.code:     end;
  end;
  
  procedure check(t : tab;var a: boolean;var scoreJoueur1, scoreJoueur2 : integer);
  var
    ega, st : string;
    i   : integer;  
  begin
    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 !'); 
          end
         else
           begin
             scoreJoueur2 := scoreJoueur2 + 1;
             Writeln(nomJoueur2, ' vous avez gagner !'); 
           end;
     end;
     ega := '';
     for i:=1 to 9 do
       ega := ega + t[i];
       if (length(ega) = 9 ) and (st = '') then
         begin
           a := false;
           writeln('Egalite !');
         end;
  end;
  
  begin
    a := true;
    while a do
  