Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. Pascal (Цикл For)

Писал уже:

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 < 0 then inc (negative, 1);

//if num > 0 then inc (positive, 1);

end;

writeln ('Кол-во нулей: ', nulls);

//writeln ('Кол-во положительных чисел: ', positive)

//writeln ('Кол-во отрицательных чисел: ', negative);

end.