Составить программку нахождения количества положительных частей в массиве из n вещественных

var

a: array [ 1..n ] of real;

count, i: integer;

begin
randomize;
for i := 1 to n do
a [ i ] := random ( 100 ) - 50;

for i := 1 to n do
write ( a [ i ], );
writeln ( );

for i := 1 to n do

if a [ i ] gt; 0 then
count := count + 1;

writeln ( Количество положительных чисел в массиве одинаково , count, . );
end.