Помогите решить в turbo pascale
 

Дано B(N). В процедуре вычислить количество положительных, отрицательных и нулевых элементов массив В. В программе заменить положительные, отрицательные и нулевые элементы соответственно на количества положительных, отрицательных и нулевых соответственно.