Как найти количество положительных элементов в паскале? ​

Вычисление суммы положительных элементов массива. program massiv6; uses crt; const N=10; type x=array [1..N] of integer; var a:x; i:integer; s:integer; begin clrscr; randomize; for i:=1 to N do begin a[i]:= -100+random(201); write (A[i]:5) end; writeln; s:=0; for i:=1 to N do.