В матрице А(5,6) найти среднее арифметическое всех элементов, удовлетворяющих условию

const n = 5; m = 6;
var A: array [1..n,1..m] of integer;
    i, j, sum, k: integer;
    sr:real;
begin
   randomize; 
    writeln('Массив A: ');
    for i:= 1 to n do 
    begin
        for j:= 1 to m do 
        begin
            A[i, j] := random(101) - 50; 
            write(A[i, j]:3,'  '); 
            if (A[i, j] >= -1) and (A[i, j] <= 1) then          
        end;
        writeln;
    end;
    writeln;
     sum := 0;
     k := 0;
     for i:= 1 to n do
      for j:= 1 to m do 
        begin
         sum:=sum+A[i, j];
         inc(k);
         sr:=sum/k;
         if (k > -1) then 
         writeln('Среднее = ', sr:2:2)
          else
         writeln('Таких чисел нет');
    readln;
end;
end.

{
 
                            Online Pascal Compiler.
                Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
 
}
 
 
Program Hello;
Const n = 5; m = 6;
 
Var A: array[1..n,1..m] of integer;
    i, j, sum, k: integer;
    sr: real;
 
Begin
Randomize;
 
WriteLn('Массив A: ');
For i:= 1 to n do
Begin
  For j:= 1 to m do
  Begin
    A[i, j] := random(101) - 50;
    Write(A[i, j]:3, ' ');
  End;
  WriteLn;
End;
writeln;
 
 
sum := 0;
k := 0;
For i:= 1 to n do
  For j:= 1 to m do
    if(A[i, j] >= -1) and (A[i, j] <= 1) then
    begin
      sum := sum+A[i, j];
      Inc(k);
    end;
 
WriteLn('k = ', k);    
sr := sum/k;
if (k > 0) then
  WriteLn('Среднее арифметическое = ', sr:2:2)
else
  WriteLn('Таких чисел нет');
  
readln;
End.