Стек, рекрусивная фун-цию вывода нечёт чисел Опции

[Dunkel_L]

Нужна рекрусивная фун-ция вывода нечётных чисел в стеке

[Дож]

Код

Procedure oddNumber(var stack_1, stack_2: TStack);
begin
If not(stack_1.empty) then begin
 if odd(stack_1.top) then writeln(stack_1.top);
   stack_2.push(stack_1.pop);
   oddNumber(stack_1, stack_2); {Рекурсия!}
   stack_1.push(stack_2.pop);
 end;
end;

Протестировал, вроде бы работает...