Написать рекурсивную процедуру для ввода с клавиатуры последовательности чи-сел (конец ввода – 0) и вывода её на экран в обратном

[netiv]

Помогите с заданием
Напишите рекурсивную процедуру для ввода с клавиатуры последовательности чи-сел (конец ввода – 0) и вывода её на экран в обратном порядке.

[Hacker19_90]

procedure rec;
var
     ch: integer;
begin
     ReadLn (ch);
     if ch <> 0 then
     begin
         rec;
         Write (ch:4);
     end
     else exit;
end;