Плиииз! Нужна помощь! Задан числовой массив А(50). Определить, каких элементов больше в этом массиве: положительных или отрицательных. При решении учтите, что число 0 не относится ни к отрицательным, ни к положительным числам.

//писал на скорую руку, должно все правильно работать var a,plus,minus,d:integer; c:array[1..50] of integer; begin plus:=0; minus:=0; for a:=1 to 50 do c[a]:=random(20)-10;//заполняем массив рандомо for a:=1 to 50 do//проверям условие if ((c[a]>0) and (c[a]<>0)) then plus:=plus + 1 else if ((c[a]<0) and (c[a]<>0)) then minus:= minus + 1; Writeln(plus,' ');//кол-во полож Writeln(minus,' ');//кол-во отриц if (plus>minus)then Writeln('Положительных') else Writeln('Отрицательных'); end.