Рекурсия переполнение стека, Несоставимое число Опции

[SeregaR1Val]

Задан массив натуральных чисел P, содержащий n элементов. Найти минимальное натуральное число, которое нельзя представить суммой каких-либо элементов массива P. Сумма может состоять и из одного слагаемого, но каждый элемент массива может входить в неё только один раз. Составить рекурсивную программу.

Помогите пожалуйста, я пробовал решать но вылазит ошибка стек переполнен и не знаю как её исправить.

program eight;
var
a,b:array[1..20] of integer;
k,m,max,n,i,z:integer;

procedure massiv(m,k,max:integer);
begin
max:=a[1];
a[i]:=max;
m:=k-max;
max:=b[z];
end;

procedure reshenie(k,m,n:integer);
begin
for i:=1 to n do
if (k=a[i]) then inc(k);
if (a[i]<k) and (a[i]<>b[z]) then
massiv(m,k,max);
if (m=0) then inc(k);
if (m>k) and (a[i]<>b[z]) and (m<>0) then
writeln('nesostavimoe 4islo',k) else
reshenie(m,m,n);
end;

begin
writeln('ukazite dliny massiva');
readln(n);
writeln('Vvedite naturalnie 4isla');
for i:=1 to n do
readln(a[i]);
b[z]:=0;
for k:=1 to 100 do
    for i:=1 to n do
reshenie(k,m,n);
readln;
end.

М

Про теги не надо забывать... мисс_граффити

[volvo]

На работу нет, но вот на отладку - еще как влияет... Твой код очень плохо читается, не видно структуры программы..

Насколько я вижу, у тебя рекурсия будет зацикливаться с параметрами (0, 0, N), то есть, получив эти параметры, она вызовет себя же вновь с этими же параметрами... Процесс бесконечен, и остановится только при переполнении стека...

Ты сразу стал делать рекурсивную программу? Перед этим не попробовал сделать то же самое итеративно? Перенести работающую итерацию в рекурсию гораздо проще, чем писать рекурсию с нуля ...