Определить количество элементов матрицы

program Project1;
 
const
  n = 5;
var
  x: array[1..n,1..n] of integer; {Переменная для хранения массива}
  i,j: integer;       { Вспомогательные переменные для организации цикла}
  k: integer;      { Переменная для хранения значения количества элементов}
  a,b: integer;    { Переменные для хранения значений левой и правой границы интервала}
begin
  randomize;
  writeln('Исходная матрица: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          x[i,j]:= -5+random(11); { Заполнение массива случайными числами}
          write(x[i,j]:3)        { Вывод элементов массива в консоль}
        end;
      writeln;
    end;
  repeat
    write('Введите значение левой границы интервала: ');
    Readln(a);
    write('Введите значение правой границы интервала: ');
    Readln(b);
    if a >= b then
      writeln('Значение левой границы интервала не может быть больше значения правой границы интевала. Сделайте ввод значений заново.')
    else
      break;
  until false;
  k:= 0;
  for i:= 1 to n do
    for j:= 1 to n do
      inc(k, ord((x[i,j] >= a) and (x[i,j] <= b)));
  if k = 0 then
    writeln('В массиве нет элементов, попадающих в заданный интервал значений')
  else
    writeln('Количество элементов, попадающих в заданный интервал значений: ',k);
  readln;
end.