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

[марфаз]

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

A[N,M] И B[K,L] ПРИ N=10 , M=5, K=7, L=6.
программа

Program P23;
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('введите ai = ');
 readln(ai);
write('введите 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);
 
{матрица А}
writeln('Матрица  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('сумма= ',sum:8:3,'  кол-во = ',kol:8:3); writeln;
 
{матрица B}
writeln('Матрица 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('сумма = ',sum:8:3,'  кол-во = ',kol:8:3);  readln
END.

проверьте решение пожалуйста!можно ли программу как нибудь сделать попроще и поменьше?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

В компилятор скопируйте текст и проверьте.

[марфаз]

какой именно текст?как это будет

[Vanta11a]

Ну сознавайтесь, у кого исходник скопировали? В какой среде разрабатывается программа?

[ZX Spectrum-128]

Сообщение от марфаз

какой именно текст?как это будет

Скачайте freepascal.org установите и эту программу скопируйте, откомпилируйте и запустите на выполнение.

[марфаз]

а так можно оставить программу такую длинную , это не будет являться ошибкой?

[ZX Spectrum-128]

Сообщение от марфаз

а так можно оставить программу такую длинную , это не будет являться ошибкой?

Нет, не будет являться ошибкой.

[марфаз]

ZX Spectrum-128 спасибо