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

Var

N, i, c1, c2:integer;

mas:array[1 ... 9999] of integer;

begin

readln (N) ;

for i:=1 to N do

begin

readln (mas[i]) ;

if mas[i]>0 then

c1:=c1+1;

if mas[i]<0 then

c2:=c2+1;

end;

writeln ('Положительных элементов: ', c1) ;

writeln ('Отрицательных элементов: ', c2) ;

end.