В матрице найти количество элементов, которые больше заданного числа - Pascal ABC

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

Помогите пожайлуста,а то не получаеться.В матрице [М*N] найти количество елементов которые больше за заданое число Т.

Решение задачи: «В матрице найти количество элементов, которые больше заданного числа»

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

const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,t:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('T=');
readln(t);
k:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>t then k:=k+1;
write('Количество элементов больше ',t,'=',k);
end.

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

Данный код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: nmax (максимальное количество строк и столбцов в матрице), a (матрица), m, n, i, j, k, t (переменные для работы с матрицей и числом).
Инициализирует генератор случайных чисел.
Запрашивает у пользователя количество строк и столбцов в матрице, проверяя, что они не превышают максимально допустимые значения.
Выводит на экран исходную матрицу.
Запускает цикл, который проходит по всем элементам матрицы. Если элемент больше заданного числа t, то увеличивает счетчик k.
Выводит на экран количество элементов, которые больше заданного числа t.
Конец программы.