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

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.