Viết chương trình tạo mảng gồm 10 phần tử và tính tích của các phần tử đó. Giúp với bà con ơi

program bt1;
uses crt;
var n,i,T:longint;
    A:array[1..10] of integer;
begin
 clrscr;         T:=1;
 For i:=1 to 10 do
  begin
   read(A[i]);
   T:=T*A[i];
  end;
 writeln(T);
 readln;
 readln;
end.