написать программу Pascal, которая выводила бы число в обратной последовательности

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.