дано 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.