Matematické Fórum

Dobrý den, potřeboval bych pomoct s úlohou.

Načtěte posloupnost nezáporných celých čísel zakončenou číslem záporným. Načtená nezáporná čísla vypište na výstup v opačném pořadí než v jakém byla na vstupu.

Výstup zakončete hodnotou -1.

Pro jednoduchost předpokládejte posloupnosti do délky 50.

Zatím to mám takhle

program pole;

const n=50;
var
a: integer;
pole: array[1..n] of integer;
begin
     for a:=1 to n do
     begin
       readln(pole[a]);
     end;
     if pole[a]>0 then
     begin
       for a :=n downto 1 do
       writeln(pole[a]);
       writeln(-1);
     end;
end.

Codex mi to ale nechce přijmout. Kde je problém?

Děkuji za odpověď.