Заполнить одномерный массив положительными и отрицательными числами, размерности 8. найти количество положительных и отрицательных элементов.

Var a:array[1..8]of integer;
b,c,d:integer;
begin
writeln('Введите элементы массива');
c:=0;
d:=0;
for b:=1 to 8 do
begin
readln(a[b]);
if a[b]>0 then c:=c+1;
if a[b]<0 then d:=d+1;
end;
writeln('Количество положительных элементов равняется ',c);
writeln('Количество отрицательных элементов равняется ',d);
end.