Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел.

Я вам уже же дал пример, могли бы сами под себя подстроить, вот, ловите://
var input, num, nulls, positive, negative, i: integer;
begin
write(Введите кол-во чисел: );
readln(input);
for i := 1 to input do begin
  write(Введите число номером , i, : );
  readln(num);
  if num = 0 then inc(nulls, 1);
  if num   if num > 0 then inc(positive, 1);
end;
writeln(Кол-во нулей: , nulls);
writeln(Кол-во положительных чисел: , positive);
writeln(Кол-во отрицательных чисел: , negative);
end.