написать программу для подсчета количества отрицательных элементов двумерного массива кратных трём

Program Zadanie59;
var
 n,m: integer; // Переменные для хранения значений количества строк и столбцов двумерного массива.
 i,j: integer; // Промежуточные переменные для организации цикла.
 k: integer;  // Переменная для хранения значения количества подсчитанных элементов.
 a: array [1..50,1..50] of integer; // Переменная для хранения исходного массива.
begin
Randomize;
 
Writeln('Введите значение количества строк:');
Readln(n);
Writeln('Введите значение количества столбцов:');
Readln(m);
for i:= 1 to n do
  for j:= 1 to m do
    begin
    //writeln('Введите элемент ',i,' строки ',j,' столбца.');
    //Readln(a[i,j]);
    a[i,j]:= random(100)- 50;
    end;
writeln('Исходный массив: ');
for i:= 1 to n do
 begin
  for j:= 1 to m do
      Write(a[i,j]:4);
 writeln;
 end;
k:= 0;
for i:= 1 to n do
  for j:= 1 to m do
    if (a[i,j] < 0) and (a[i,j] mod 3 = 0) then  // Условия подсчета элементов.
        inc(k);    // Счетчик найденных элементов.
if k <> 0 then
writeln('Количество отрицательных элементов двумерного массива кратных трём: ', k)
else
writeln('Отрицательных элементов двумерного массива кратных трём не найдено.');
Readln;
end.