посчитать количество положительных чисел в массиве от -100 до 100 длина

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

numOfPositive, i: integer;

begin

   writeln('Начальный массив:');

   for i:=1 to 10 do

   begin

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

       write(arr[i], ' ');

   end;

   writeln();

   for i:=1 to 10 do

       if arr[i] gt; 0 then

           numOfPositive += 1;

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

end.