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