Получить числа которые следуют один за другим и в сумме дают это число 15 - Turbo Pascal

Формулировка задачи:

Нужно создать програмку которая будет выполнять следующие действия. Вводишь любое число например 15. И в результате надо получить числа которые следуют один за другим и в сумме дают это число 15: То есть все возможные комбинации которые в сумме дадут 15 и будут следовать один за другим: 1,2,3,4,5 4,5,6 7,8

Решение задачи: «Получить числа которые следуют один за другим и в сумме дают это число 15»

Листинг программы

Program max;
var n,y,j,s,p,g:integer;
    b:array[1..1000] of integer;
Begin
  write('Introdu numarul N = ');readln(n);
  for y:=1 to n div 2+1 do Begin
    s:=0; 
    p:=0; 
    for j:=y to n do Begin
      p:=p+1;
      b[p] := j;
      s:=s+j;
      if s = n then begin 
        for g:=1 to p do write(b[g],' ');
        writeln;
       end;  
     end;
   end;
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных n, y, j, s, p и g типа integer.
Пользователю предлагается ввести число n, которое будет использоваться в цикле.
В цикле for переменной y от 1 до n / 2 + 1 происходит итерация.
Внутри цикла for переменным s и p инициализируются значения 0.
Также внутри цикла for переменная b инициализируется значением 0 для каждого индекса от y до n.
Если сумма s равна n, то выводится массив чисел b с помощью функции write.
Цикл for завершается, когда значение s становится равным n.
После завершения цикла for выводится символ новой строки с помощью функции writeln.
Программа завершается.