Определить количества нулевых элементов в массиве - Pascal

Формулировка задачи:

Дан одномерный вещественный массив F(16)аписать программу по определению колличества нулевых элементов в массиве!

Решение задачи: «Определить количества нулевых элементов в массиве»

Листинг программы

const n=16;
var f:array[1..n] of integer;
    i,k:integer;
 begin
  for i:=1 to n do
   Readln(f[i]);
   for i:=1 to n do
    if f[i]=0 then
     k:=k+1;
  Writeln('Кол-во ',k);
  readln;
 end.

Объяснение кода листинга программы

Объявляется константа n равная 16 и переменная f типа массив целых чисел от 1 до n.
Объявляются две переменные i и k типа целых чисел.
В цикле for с переменной i от 1 до n с шагом 1 происходит чтение значения в массив f.
В цикле for с переменной i от 1 до n с шагом 1 происходит проверка значения элемента массива f. Если значение равно 0, то к переменной k прибавляется 1.
Выводится сообщение с количеством нулевых элементов в массиве.
Программа ожидает ввода данных с помощью функции readln.