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 đó tính giá trị của các phần tử ra màn hình Giúp mik với!!!

Program BTH;
uses crt;
var i,n,tich,tong,hieu:longint;
thuong:real;
a: array [1..10000] of longint;
Begin
        clrscr;
        write('Nhap n: '); readln(n);
        tich:=1;
        thuong:=1;
        hieu:=0;
        tong:=0;
        write('a[1]: '); readln(a[1]);
        tong:=tong+a[1];
        hieu:=hieu-a[1];
        thuong:=a[1];
        tich:=tich*a[1];
        for i:=2 to n do
        begin
                write('a[',i,']: '); readln(a[i]);
                tong:=tong+a[i];
                hieu:=hieu-a[i];
                thuong:=thuong/a[i];
                tich:=tich*a[i];
        end;
        writeln('Tong day so tren la: ',tong);
        writeln('hieu day so tren la: ',hieu);
        writeln('tich day so tren la: ',tich);
        writeln('thuong day so tren la: ',thuong:4:2);
        readln;
end.

program oken;

uses crt;

var i,n,tich,tong,hieu:longint;

      thuong:real;

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

begin

clrscr;

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

tich:=1; thuong:=1; hieu:=0; tong:=0;

for i:=1 to n do

  begin

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

     tong:=tong+a[i];

     hieu:=hieu-a[i];

     thuong:=thuong/a[i];

     tich:=tich*a[i];

   end;

writeln('tong: ',tong);

writeln('hieu: ',hieu);

writeln('tich: '.tich);

writeln('thuong: ',thuong:0:3);

readln;

end.