В паскаль создать массив который заполняется случайными числами и выводит процентное соотношение положительных и отрицательных чисел

var i, p, o:integer;

a:array [1 ... 30] of integer;

begin cls; randomize;

for i:=1 to 30 do

begin

a[i]:=random (101) - 50;

if a[i]>0 then inc (p)

else inc (o) ;

end;

writeln ('procent polojutelnyh = ', (30/100) * p,' procent otric = ', (30/100) * o) ;

readln;

end.