Дано 100 чисел. проверить правда ли, что произведение отрицательных чисел не превосходят 100 по модулю. решить в паскале, )

Var
  a: array [1..100] of integer;
  i: integer;
  b: Int64 := 1;

begin 
  for i := 1 to 100 do
  begin
    a[i] := random(-2, 20);
    write(a[i], ' ');
  end;
  writeln();
  for i := 1 to 100 do
  begin
    b *= (a[i] < 0 ? abs(a[i]) : 1);
  end;
  writeln(b <= 100, '(', b, ')');
end.