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

[Dunkel_L]

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

[volvo]

А вот обмануть компилятор можно:

procedure Odds(const p: ptr);
begin
  if p = nil then exit;
  if odd(p^.info) then writeln('next odd = ', p^.info);
  odds(p^.link); { Рекурсия !!! }
end;

После окончания работы этой процедуры top указывает туда же, куда и указывал ДО нее... Но все нечетные элементы уже распечатаны...