Задача на комбинаторику и рекурсию (Delphi)

Требуется написать функцию, которая перебирает все возможные комбинации N целых чисел, у которых сумма равна M, а сами числа больше 0.
Программа заполняет массив A[N,x], где x - количество всевозможных комбинаций.
То есть, сумма, к примеру, 5, количество чисел 3.
Программа должна заполнить
1 1 3
1 3 1
3 1 1
2 2 1
2 1 2
1 2 2

Помогите решить пожалуйста.