anchor.diff:        bool := true
       else bool := false;
     until bool = false ;
  -END.+  clrScr;
  +  if scoreJoueur1 > scoreJoueur2 then
  +    writeln('Bien Joue ', nomJoueur1)
  +  else
  +  if scoreJoueur2 > scoreJoueur1 then
  +    writeln('Bien Joue ', nomJoueur2); 
  +END.
  +
  
positive.code:          symJoueur2, ' % ', nomJoueur2, ' : ', scoreJoueur2);
    writeln;
    writeln;
    writeln('---|---|---');
    writeln(' 1 | 2 | 3 ');
    writeln('---|---|---');
    writeln(' 4 | 5 | 6 ');
    writeln('---|---|---');
    writeln(' 7 | 8 | 9 ');
    writeln('---|---|---');
    for i:=1 to 9 do
      begin
        if t[i] <> '' then 
  
negative.code:             7..9 : x := 8;
            end;
            case i of
              1, 4, 7 : y := 20;
              2, 5, 8 : y := 24;
              3, 6, 9 : y := 28;
            end;
          if t[i] = '1' then
            begin
              gotoxy(y, x);
              write(symJoueur1);
              gotoxy(1, 11);
            end
          else
            begin
              gotoxy(y, x);
              write(symJoueur2);
              gotoxy(1, 11);
            end; 
        end;
      end;
  