Уже надо завтро сдавать тетрать написать прогу которая находит произведение элемента массива

Const N=10;
var a: array [0..N] of integer;
    i, m: integer;
begin
     for i := 0 to N do
         a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }
     for i := 0 to N do
         m := m + a[i];
     writeln(m);
end.

Var
mas:array[10] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr=pr*mas[i];
writeln('Произведение = ',pr);
end.

с Объявлением массива точно не помню,посмотри сам как он объявляется,я написал примерно,вроде размерность не много по другому указывается