Написать программу которая определяет количество положительных элементов одномерного массива

var
i, n: longint;
a: array [1..10] of longint;

begin
n := 0;
randomize;
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
write(a[i], );
if a[i] gt; 0 then
n := n + 1;
end;
writeln;
write(Количество положительных членов данного одномерного массива одинаково );
writeln(n, .);
end.