Вводится число 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.