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

program chik;var a:array[1..100]of integer;n,i,p:integer;beginwriteln('Введите кол-во элементов');for i:=1 to n dobeginread(a[i]);a[i]:=a[i]+10;end;p:=1;for i:=1 to n dobeginwrite(a[i],' ');if(a[i]>0)then p:=p*a[i];end;writeln;writeln(p,' -произведение пол,чисел 2 массива');end.