Рекурсия(Паскаль)

[yoyo32]

Помогите пожалуйста с задачей очень нужно
Ввести последовательность чисел (окончание ввода – 0) и вывести их в обратной последовательности. Входные данные взять из текстового файла.

[Анатоль]

А зачем тут рекурсия?
Но можно и рекурсией.
вот весь код.
вводит из txt файла input.txt выводит в output.txt
program zadacha;
var
n : longint;
procedure rekyrs;
var
a : longint;
begin
read(a);
if a = 0 then
exit
else
rekyrs;
write(a);
end;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
rekyrs;
close(input);
close(output);
end.
пробелы между числами сам поставь.

[yoyo32]

Анатоль спасибо за помащь но она не работает я её подправил без критических изменений просто дабавил процедуру чтения из файла и запись в файл а она тупо переписывает числа и всё

[yoyo32]

Извеняюсь программа работает нормально это просто мой касяк я там нечайно изменил лишнего