Combinaisons de 4 chiffres

var LesCombi : string;          // résultat;

procedure combi ( pPin, pChoix: string; niv, lng: integer);
var i : integer;
begin
   for i := 1 to lng do
      if pChoix[i]<> #0 then      // si pas pris
      begin
         pPin[niv] :=  pChoix[i]; // on le prend
         pChoix[i] := #0;         // on l'enleve du choix
         if niv=lng then          // si dernier car on prend
            LesCombi := LesCombi + pPin + CRLF
         else                     // sinon on relance sur car suivant
            Combi (pPin, pChoix, niv+1, lng);
         pChoix[i] := pPin[niv];  // on le remet dans le choix
      end;
end;

function Combinaisons( pPin : string ) : string;
begin
   LesCombi := '';
   combi( pPin, pPin, 1, length(pPin)); // appel 1er niveau
   result := LesCombi;
end;