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

Код  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.