Дан массив. Создать новый массив из элементов предыдущего увеличением их на 10 и найти произведение положительных элементов второго массива. (должно работать в паскале).

Первый раз прошу тут о помощи ... сама никак не могу додуматься.

Program chik;

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

n, i, p:integer;

begin

writeln ('Введите кол-во элементов') ;

for i:=1 to n do

begin

read (a[i]) ;

a[i]:=a[i]+10;

end;

p:=1;

for i:=1 to n do

begin

write (a[i],' ') ;

if (a[i]>0) then p:=p*a[i];

end;

writeln;

writeln (p,' - произведение пол, чисел 2 массива') ;

end.