Viết chương trình cho phép nhập n số và in ra theo thứ tự ngược lại

Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                write('a[',i,']: ');readln(a[i]);
        end;
        For i:=n downto 1 do write(a[i],' ');
        readln;
end.

program oken;

uses crt;

var a: array [1..100] of intger;

      i,n:integer;

begin

clrscr;

write('nhap so phan tu cua mag: '); readln(n);

for i:=1 to n do

  begin

    write('a[',i']: '); readln(a[i]);

  end;

writeln('mang theo thu tu nguoc lai');

for i:=n downto 1 do

   write(a[i],' ');

readln;

end.