Дан одномерный массив целых чисел.Написать программу подсчёта количества положительных и отрицательных чисел массива.

Проверь сразу, работает или нет

спасибо большое)

var ar : array [1..100] of integer;i, pluscount,minuscount,zerocount : integer;beginreadln(n); -считываем число элементов массива(если оно дано, я не знаю)for i := 1 to n do beginread(ar[i]);  - считываем элемент массива, заносим его в массивif (ar[i] > 0) then pluscount := pluscount+1; -если >0 -> увел. счетчик пол.чиселif (ar[i] < 0) then minuscount := minuscount+1; -если <0 -> увел. счетчик отр.чиселif (ar[i] = 0) then zerocount := zerocount+1; -если =0 -> увел. счетчик нулейend;writeln('В массиве ',pluscount,' положительных чисел, ',minuscount,' отрицательных чисел, ',zerocount,' нулей.');end.