Вычислить суммы и количества элементов, находящихся в интервале от a до b для матриц А и В

uses crt;
const N=10; M=5; K=7; L=6;
var A:array[1..N,1..M] of real;
    B:array[1..K,1..L] of real;
    ai,bi,sum,kol:real;
    i,j:integer;
BEGIN
write('Input Left Border:  ai = '); readln(ai);
write('Input Right Border: bi = '); readln(bi);
for i:=1 to N do
  for j:=1 to M do
    A[i,j]:=Random(50);
for i:=1 to K do
  for j:=1 to L do
    B[i,j]:=Random(50);
 
{Matrix A}
writeln('FOR MATRIX A');
for i:=1 to N do
  begin
    for j:=1 to M do
      write(A[i,j]:8:3);
    writeln
  end;
sum:=0; kol:=0;
for i:=1 to N do
  for j:=1 to M do
    begin
      if (A[i,j]>=ai) and (A[i,j]<=bi) then
        begin
        sum:=sum+A[i,j];
        kol:=kol+1;
        end;
    end;
writeln; Writeln('Summa = ',sum:8:3,'  Kol-vo = ',kol:8:3); writeln;
 
{Matrix B}
writeln('FOR MATRIX B');
for i:=1 to K do
  begin
    for j:=1 to L do
      write(B[i,j]:8:3);
    writeln
  end;
sum:=0; kol:=0;
for i:=1 to K do
  for j:=1 to L do
    begin
      if (B[i,j]>=ai) and (B[i,j]<=bi) then
        begin
        sum:=sum+B[i,j];
        kol:=kol+1;
        end;
    end;
writeln; Writeln('Summa = ',sum:8:3,'  Kol-vo = ',kol:8:3);  readln
END.