Найти произведение отрицательных элементов массива. (Delphi 7)

var a: array [1..20] of integer; mult: longint; i: integer; begin      randomize;      mult := 1;      for i := 1 to 20 do      begin           a[i] := random(20) - 10;           if a[i] < 0 then mult := mult * a[i];      end;      for i := 1 to 20 do          write(a[i], ' ');      writeln;      writeln(mult); end.