Найти количество элементов массива, лежащих в интервале - Pascal ABC

Дано двумерный массив целых чисел найти: Количество элементов массива , лежащих в интервале (-1;30)

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

k:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]>-1) and (a[i,j]<30) then
 inc(k);

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

Переменная k инициализируется значением 0.
Затем происходит цикл for, который выполняется от 1 до n.
Внутри этого цикла также происходит другой цикл for, который выполняется от 1 до m.
В условии обоих циклов проверяется, что элемент a[i,j] существует и находится в диапазоне от -1 до 30.
Если это условие выполняется, то значение переменной k увеличивается на 1.
По завершении второго цикла for, значение переменной k будет содержать количество элементов массива, удовлетворяющих условию.
Код не использует вложенные списки.