For the list `{1, 9, 3, 7, 8}`, I want to find pairs whose sum is $10$. I would like the results shown as `{{1, 9}, {9, 1}, {3, 7}, {7, 3}}`. However, when I use:

```
IntegerPartitions[10, 2, {1, 9, 3, 7, 8}]

```

I get only `{{7, 3}, {9, 1}}`.

How can I get `{{1, 9}, {9, 1}, {3, 7}, {7, 3}}`?