Рекурсия, выведите все нечетные числа последовательности, сохраняя их порядок - Free Pascal

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

Дана последовательность натуральных чисел (одно число в строке), завершающаяся числом 0. Выведите все нечетные числа из этой последовательности, сохраняя их порядок. В этой задаче нельзя использовать глобальные переменные и передавать какие-либо параметры в рекурсивную функцию. Функция получает данные, считывая их с клавиатуры. Функция не возвращает значение, а сразу же выводит результат на экран. Основная программа должна состоять только из вызова этой функции. Никак не могу усвоить рекурсия, помогите, пожалуйста.

Решение задачи: «Рекурсия, выведите все нечетные числа последовательности, сохраняя их порядок»

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

function f : string;
var X : integer;
begin
  f := '';
  readln(X);
  if X <> 0 then
  begin
    if odd(X) then write(X, ' ', f()) else write(f())
  end
end;
 
begin
  f()
end.

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

В данном коде реализована функция f, которая принимает на вход целочисленное значение X.

Сначала определяется пустая строка f, которая будет использоваться для накопления результата.
Затем считывается значение X с помощью функции readln.
Если X не равно нулю, то выполняется следующая часть условия:
Проверяется, является ли X нечетным числом с помощью функции odd.
Если X нечетное, то вызывается рекурсивная функция f, и результат добавляется в строку f с помощью функции write.
Если X четное, то вызывается только функция write для вывода строки f.
В конце вызывается функция f для начала процесса. Таким образом, данный код рекурсивно выводит все нечетные числа, которые считываются с помощью функции readln, сохраняя порядок их следования.