viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím N số nguyên của một dãy số. N cũng được nhập từ bàn phím. Sau đó in giá trị của các phần tử ra màn hình Giúp mình với!!!!

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

Ý bạn là bài thế này nếu sai cmt bên dưới mình sửa cho

program oken;

uses crt;

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

     i,n:integer;

begin

clrscr;

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

for i:=1 to n do

   begin

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

  end;

write('cac gia tri lan luot cua mang: ');

for i:=1 to n do

   write(a[i],' ');

readln;

end.