Найти произведение отрицательных элементов массива из 10 случайных целых чисел от -20 до 20.

Var a: array [1..10] of integer; i: integer; mult: longint;
begin
     randomize;
     mult := 1;
     for i := 1 to 10 do
         a[i] := random(40) - 20; {Заполнение случайным образом}
     for i := 1 to 10 do
         write(a[i], ' '); {Написание массива (для контрольной проверки)}
     for i := 1 to 10 do
         if a[i] < 0 then
            mult := mult * a[i];
     writeln(mult);
end.