Помогите написать программу на паскале. Нужно 4 задание

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

begin

 var (nPos, nNeg, nZero) := (0, 0, 0);

 var a := ReadArrReal(10);

 foreach var p in a do

   if p > 0 then

     nPos += 1

   else if p = 0 then

     nZero += 1

   else

     nNeg += 1;

 Println('Положительных', nPos, '  нулевых', nZero,

     ' отрицательных', nNeg)

end.