Problem Pascal

[Noobq]

Mam do wykonania takie zadanie(rekurencja):

Napisz program, który wyświetli liczby podane na wejściu w odwrotnej kolejności.
Input

W pierwszym wierszu jedna liczba naturalna dodatnia n < 10000 określająca ilość liczb do wczytania.

W następnych n wierszach liczby naturalne.
Output

Ciąg liczb wczytanych na wejściu wypisany w odwrotnej kolejności.
Example

Input:
5

1

2

3

4

54

Output:
54

4

3

2

1

 

 

Napisałem program ale wyświetla mi co drugą liczbe.

 

Oto kod programu

program ODWRTAB;
uses crt;
procedure rek;
var
    z:string;
    n:longint;
begin
    readln(n);
    if n>0 then  
   begin
    readln(z);
    rek;
    writeln(z);
    dec(n);
   end;
end;
begin
    rek;
end.

Co jest w nim nie tak proszę o szybką pomoc.

 

 

[Noobq]

Odwołuję przedsięwrzięcie mały błąd z mojej strony