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