>121
Permutations[{a, b, c, d, e, f, g, h, i, j}, {2}]
して、
Select[%, OrderedQ]
で取り出す、とかどう？