Добрый вечер. . У меня задание по програмированию в паскале.

Question

Есть какой-то список чисел мы должны сделать так. чтобы компьютер на их выписал в обратном порядке. список заканчивается числом -1 которое в список не входит. вот программа которую я написал. Размер массива может быть маскимально 1000

program обратный порядок;

const max=1000;

var T:array [1..max] of integer;

n,i:integer;

begin

read (n);

while (N-1) do

begin

for i:=1 to max do

read (T[i]);

read(N);

end;

for i:=max to 1 do

write (t[i]);

end.

program обратный порядок;

const max=1000;

var T:array [1..max] of integer;

n,i:integer;

begin

read (n);

while (N<>-1) do

begin

for i:=1 to max do

read (T[i]);

read(N);

end;

for i:=max to 1 do

write (t[i]);

end.

Владимир Иванов · Accepted Answer

program reverse;
const MAX_COUNT=1000;
var n, tmp:integer;
T: array[1..MAX_COUNT] of integer;
begin
n:=0;
tmp:=0;
while(tmp-1) do
begin
readln(tmp);
if(tmp-1) then begin
n:=n+1;
T[n]:=tmp;
end;
end;
if(n>0) then begin
for tmp:=n downto 1 do writeln(T[tmp]);
end;
readln;
end.