Определить значение среднего арифметического массива - Pascal ABC - Ответ 5511794

Program matr;
const
     N1=4{10};
     M1=6{15};
var
    L: array [1..N1,1..M1] of real;
    N,M: byte;
    i,j: integer;
    SR,S,min: real;
 
BEGIN
writeln ('êîëè÷åñòâî ýëåìåíòîâ â ìàòðèöå');
readln (N,M);
for i:= 1 to N do
  for j:=1 to M do
     begin
           write ('L[',i,',',j,']=');
           readln (L[i,j]);
     end;
    writeln ('ââîä ìàòðèöû çàâåðøåí');
S:=0;
for i:= 1 to N do
  for j:=1 to M do
     S:=S+L[i,j];
     SR:=round(S/(N*M));
     writeln('SR=',SR:2:2);
 
  for i:=1 to N do
      min:=L[i,1];
              for j:=2 to M do begin
                if L[i,j]<min then
                  min:=L[i,j];
                  end;
                  writeln('min=',min);
 
 
  for i:= 1 to N do
  for j:=1 to M do begin{??????, ? ?????, ???-?? ? ???? ????? (????? ?????-??? ?? ????????,????? ?????? ????? ?.?.)}
    if L[i,j]=min then
       L[i,j]:=SR
       end;
 
writeln ('ìàòðèöà L:');
for i:=1 to N do begin
     writeln;
      for J:=1 to M do
      Write(L[i,j],' ');
      end;
 
writeln ('âûâîä ìàòðèöû çàâåðøåí');
END .