Помогите решить, буду очень признателен.1. Дан массив, найти произведение отрицательных

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]lt;0 then p:=p*mass[i]

end;

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

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

for i:=1 to 20 do begin

 if mass[i]lt;0 then mass[i]:=абс(mass[i]);

 write(mass[i],' ');

end;

readln;

end.