Хотел бы задать вопрос по поводу рекурсивной программы

[GUnt]

Дана задача, ее нужно решить через процедуру:Составить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке, используя рекурсивную подпрограмму. Например, для числа 1234 получаем ответ 4321.
Мой код:var n:integer;
procedure reverse (n:integer);
begin
writeln (n mod 10);
if (n div 10) <> 0 then reverse (n div 10);
end;
begin
writeln('vvedite natur tchislo');readln(n);
reverse(n);writeln;readln;
end.

Однако, вывод происходит в столбец , а не в строку. Можно ли это как то исправить?

[pomoshnic]

Просто измени вот эту строку:

writeln (n mod 10);

на:

write (n mod 10);