Помогите решить, буду очень благодарен.

1. Дан массив, найти произведение отрицательных элементов массива.

2. Дан массив, заменить все отрицательные элементы массива их модулями

Var mass:array[ 1 ... 20 ] of integer;

P, i:integer;

begin

p:=1;

'Заполнение массива

randomize;

for i: = 1 to 20 do begin

mass[i]:=random (30) - 15;

write (mass[i],' ') ;

if mass[i]< 0 then p:=p*mass[i]

end;

writeln ('Произведение отрицательных чисел = ', p) ;

writeln ('Новый массив') ;

for i: = 1 to 20 do begin

if mass[i]< 0 then mass[i]:=abs (mass[i]) ;

write (mass[i],' ') ;

end;

readln;

end.