Составить программу которая формирует массив из 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] < 0 then summ := summ + mas[i];
      if mas[i] > 0 then count := count * mas[i];
   end;

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