двумерный массив Delphi

подскажите пожалуйста как мне правильно записать в коде так чтобы найти количество элементов массива меньше среднего на 6
Массив y[i,j] - 7*7
среднее нашла: x = sum/49