Программа подбора

function ExistsNextPerm(var kCh: integer): Boolean; var iV,iP,iVC,iPC: integer; begin result := False; for iV := nV downto 2 do if count[iV] < iV-1 then begin Inc(count[iV]); iP := pos[iV]; iPC := iP+dir[iV]; iVC := perm[iPC]; perm[iP] := iVC; perm[iPC] := iV; pos[iVC] := iP; pos[iV] := iPC; kCh := iP; if dir[iV] < 0 then Dec(kCh); result := True; exit; end else begin count[iV] := 0; dir[iV] := - dir[iV]; end; end;