Вывести заданную последовательность чисел в обратном порядке. Без использования массивов

var
    f : file Of Integer;
    n : Integer;
 
procedure InOutPut(i : Integer);
var
    x : Integer;
begin
    if (i > 0) then
    begin
        ReadLn(x);
        if (Abs(x) < 1000) then
            Write(f, x)
        else
            Inc(i);
        InOutPut(i-1);
    end
end;
 
procedure OutInPut(i : Integer);
var
    x : Integer;
begin
    if (i >= 0) then
    begin
        Seek(f, i);
        Read(f, x);
        WriteLn(x);
        OutInPut(i-1);
    end;
end;
 
function ReadN() : Integer;
var
    n : Integer;
begin
    Write('Input n=');
    ReadLn(n);
    if Not(n in [0..103]) then
        n := ReadN();
    ReadN := n;
end;
 
begin
    Assign(f, 'f.dat'); ReWrite(f);
    n := ReadN();
    InOutPut(n);
    Close(f); Reset(f);
    WriteLn; WriteLn;
    n := FileSize(f);
    OutInPut(n-1);
    Close(f);
end.

procedure chisla(n:integer);
var a: integer;
begin
if n<1 then writeln
else
 begin
  read(a);
  chisla(n-1);
  write(a,' ');
 end
end;
var n:integer;
begin
write('n=');
readln(n);
writeln('Введите ',n,' целых чисел через пробел и нажмите Enter');
chisla(n);
end.

procedure Chisla(n : Integer);
var
    a : Integer;
begin
    if (n < 1) then
        WriteLn
    else
    begin
        Read(a);
        if (Abs(a) < 1000) then
        begin
            Chisla(n-1);
            Write(a,' ');
        end
        else
            Chisla(n);
    end;
end;
 
function ReadN() : Integer;
var
    n : Integer;
begin
    Write('n=');
    ReadLn(n);
    if Not(n in [0..1000]) then
        n := ReadN();
    ReadN := n;
end;
 
var
    n : Integer;
 
begin
    n := ReadN();
    WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');
    Chisla(n);
end.