Дан массив из n частей. Посчитать в нем количество положительных частей.Безотлагательно!

//PascalABC.NET v3.3 1633

const n = 15;

var arr: array [1..n] of integer;

begin

for var i:=1 to n do

 arr[i]:=random(-5,5);

write('Исходный массив: ');

arr.PrintLn(', ');

var count:=0;

for var i:=1 to n do

 if arr[i] gt; 0 then

   count += 1;

writeln('Количество положительных частей: '+count);

end.