Найти произведение отрицательных элементов массива. (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.