Подсчитать общее количество чисел, меньших заданного А, больших В среди элементов ниже побочной диагонали.

{Подсчитать общее количество чисел, меньших заданного А, и чисел,
 больших заданного В среди элементов, находящихся ниже побочной диагонали.}
var
  M: array[1..20, 1..20] of integer;
  i, j, n, A, B: integer;
  countA, countB: Byte;
  
begin
  writeln('Введите A, B: ');
  readln(A, B);
  writeln('Вводим двумерный массив:');
  writeln;
  randomize;
  n := 3 + random(15);
  countA := 0;
  countB := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      m[i, j] := random(200);
      write(m[i, j]:5);
      if (i + j > N + 1) then
        if m[i, j] < A then inc(countA)
          else
        if m[i, j] > B then inc(countB)
    end;
    writeln
  end;  
  writeln;
  if countA > 0 then writeln('К-во элементов, меньших ', A, ' ниже побочной диагонали: ', countA)
  else writeln('Ниже побочной диагонали нет элементов меньших ', A);
  if countB > 0 then writeln('К-во элементов, больших ', B, ' ниже побочной диагонали: ', countB)
  else writeln('Ниже побочной диагонали нет элементов больших ', B)
end.