Найти количество заданных чисел в массиве - Pascal

Заполнить одномерный массив случайными числами, ввести эталонное число с клавиатуры, найти, сколько раз эталонное число встречается в массиве.

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

  for i:=Low(a) to High(a) do
    if a[i]=b then Ink(k);

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

Создается цикл от Low(a) до High(a), где a - это массив чисел, а Low(a) и High(a) - индексы первого и последнего элементов массива соответственно.
Проверяется условие: если значение элемента массива a с индексом i равно значению переменной b, то вызывается функция Ink с аргументом k.
Предположительно, в коде опечатка, скорее всего, должно быть Inc вместо Ink для увеличения значения переменной k (которая должна быть предварительно объявлена).