Lập trình nhân giá trị cho mảng số thực của 100 phần tử ,tính trung bình cộng của mảng rồi in kết quả ra màn hình

Uses crt;
Var i,s,t,tb: extended;
Begin
        Clrscr;
        s:=1; t:=0;
        For i:=1 to 100 do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        For i:=1 to 100 do
        Begin
                s:=s*A[i];
                t:=t+A[i];
        End;

        tb:=t/100;

        Write('Tich: ',s:5:2);
        Writeln;
        Write('Trung binh cong: ',tb:5:2);
        Readln
End. 

uses crt;
var i:longint; t,s:real; a:array[1..100000]of real;
begin 
clrscr;
   t:=1; 
   for i:=1 to 100 do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         t:=t*a[i];
         s:=s+a[i];
      end;
   writeln('Tich: ',t:0:5);
   writeln('Trung binh cong: ',s/100:0:5);
readln
end.