Составить программу которая формирует массив из 9 случайных целых чисел на промежутке от -30,30 и вычислите:а) сумму отрицательных чиселб) произведение чётных чисел

Var
   mas: array [1..9] of integer;
   summ, count: integer;
   i: integer;
begin 
   randomize;
   summ := 0;
   count := 1;

   for i := 1 to 9 do
   begin
      mas[i] := random(-30, 30);
      write(mas[i] : 4);
      if mas[i]       if mas[i] > 0 then count := count * mas[i];
   end;

   writeln();
   writeln(Сумма отрицательных элементов: , summ);
   writeln(Произведение положительных элементов: , count);
end.