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

Код

program mas;

const n=10;

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

counter, i, mnoj:integer;

begin

counter:=0;

mnoj:=1;

for i:=1 to n do begin

a[i]:=-10+random (19) ;

if a[i] > 0 then begin

inc (counter) ;

mnoj: = a[i] * mnoj;

end;

end;

for i:=1 to n do

write (a[i],' ') ;

writeln ('произведение равно ', mnoj,' количество положительных элементов = ', counter) ;

end.