pascal逆序输出

大致的程序是这样，加上MAIN函数 变量定义 输入输出函数就可以了。
for(i=1,i<=n/2;i++)
{t=a[n-i+1];
a[i]=a[n-i+1];
a[n-i+1]=a[i];}

read(n);
for i:=1 to n do
read(a[i]);｛输入｝
for i:=n downto 1 do
write(a[i]);{输出}
end.

给：

program ex;
var n,top:integer;
stack,a:array[1..maxn] of integer;
read(n);top:=0;
for i:=1 to n do
begin
read(a[i]);
inc(top);stack[top]:=a[i];
end;
while top>0 do
begin
writeln(stack[top]);
dec(top);
end;
end.

program ch;

var
a:array[1..1000] of longint;
n,i:longint;

begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i],' ');
writeln;
end.