Найти количество элементов массива , лежащих в интервале (-1;30) - 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 
   k:=k+1;

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

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