Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом ряду

Помогите решить в Паскале

Program n_1;

uses crt;

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

otr, pol, i: byte;

begin

for i:=1 to 5 do begin

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

write (a[i]:3) ;

if a[i]>0 then pol:=pol+1 else

if a[i]<0 then otr:=otr+1;

end;

writeln;

writeln ('Положительных: ', pol,'; Отрицательных: ', otr) ;

end.