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

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.