Одномерный массив из 30 элементов введенных с клавиатуры, найти сумму положительных, количество отрицательных

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(30);

 var (s , k) := (0, 0);

 foreach var n in a do

   if n > 0 then

     s += n

   else if n < 0 then

     k += 1;  

 Println('Сумма положительных:', s, 'кол-во отрицательных:', k)

end.