Паскаль. Даны четыре целых числа. Найти произведение положительных и отрицательных чисел.

pr_pol:=1;
pr_otr:=1;
for n:=1 to 4 do
begin
if chislo[n] > 0 then pr_pol = pr_pol*chislo[n];
if chislo[n] < 0 then pr_otr= pr_otr*chislo[n];
end;