function Minimise (prof:byte; var meilleur:coup) :integer;
    {minimise un coup de l'adversaire de l'ordinateur}
    var Resultat,Minimum: integer;
        Ci,Reponse:coup;
    begin
      if (prof=0) then Minimise=evalue
      else begin
        Minimum:=32000;    {plus grand que tout résultat d'évaluation}
        [*** tant qu'il y a un coup jouable Ci ***]
          jouer(Ci);
          Resultat:=Maximise(prof-1,Reponse);
          dejoue(Ci);
          if (Resultat<Minimum) then begin
             Minimum:=Resultat;
             Meilleur:=Ci;
          end;  {if}
        [*** fin du tant que ***]
        Minimise:=Minimum;
      end;
    end;

    function Maximise (var meilleur:coup) :integer;
    {maximise un coup de l'ordinateur}
    var Resultat,Maximum: integer;
        Ci,Reponse:coup;
    begin
      if (prof=0) then Maximise=evalue
      else begin
        Maximum:=-32000;    {plus petit que tout résultat d'évaluation}
        [*** tant qu'il y a un coup jouable Ci ***]
          jouer(Ci);
          Resultat:=Minimise(prof-1,Reponse);
          dejoue(Ci);
          if (Resultat>Maximum) then begin
             Maximum:=Resultat;
             Meilleur:=Ci;
          end;  {if}
        [*** fin du tant que ***]
        Maximise:=Maximum;
      end;
    end;