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

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

Помогите пожалуйста решить задачу в pascal с блок схемой. Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Определить: -количество нулевых элементов вектора; с блок схемой.

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

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

const n=15;
var
  i, k: Integer;
  a: array [1..n] of Integer;
begin
  Write('Введите ',n,'чисел: '); {k:=0;}
  for i:=1 to n do Read(a[i]); ReadLn;
  for i:=1 to n do Inc(k,Ord(a[i]=0));
  WriteLn('Нулей: ',k);
end.

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

Константа n с значением 15.
Переменные i, k типа Integer.
Массив a с размерностью от 1 до n и элементами типа Integer.
Ввод сообщения с запросом на ввод n чисел.
Комментарий с присвоением значения переменной k равным 0 (закомментированная строка).
Цикл для ввода n чисел в массив a с помощью операторов Read и ReadLn.
Цикл для подсчета нулевых элементов в массиве a. Если элемент равен нулю, увеличивается значение переменной k на 1.
Вывод количества нулевых элементов k.