Вычислить среднее арифметическое тех элементов двумерного массива, которые больше заданного числа d

K:=0;
Sum:=0;
For i:=1 to n do
For j:=1 to m do
 If a[i,j]>d then
 Begin
  Sum:=sum+a[i,j];
  Inc(k);
 End;
Sr:=sum/k;
For i:=1 to n do
For j:=1 to m do
 A[i,j]:=a[i,j]/sr;

const
  n=10;
  m=8;
var
  k,i,j:integer;
  d,sum,sr:real;
  a:array[1..n,1..m] of real;
begin
  write('Введите d: '); readln(d);
  K:=0;
  Sum:=0;
  writeln('Исходный массив:');
  For i:=1 to n do
    begin
      For j:=1 to m do
        begin
          a[i,j]:=random(n*m);
          write(a[i,j]:8:2);
          If a[i,j]>d then
            Begin
              Sum:=sum+a[i,j];
              Inc(k);
            end;
        End;
      writeln;
    end;
  if k=0 then
    begin
      writeln('Нет таких элементов. Программа завершена.');
      exit;
    end;
  Sr:=sum/k;
  writeln('Среднее арифметическое элементов, больших d: ',sr:8:2);
  writeln('Преобразованный массив:');  
  For i:=1 to n do
    begin
      For j:=1 to m do
        begin
          A[i,j]:=a[i,j]/sr;
          write(a[i,j]:8:2);
        end;
      writeln;
    end;
  readln;
end.