айти адрес ячейки, со значение близким к среднему арифм. матрицы

[Solod49]

Дана матрица A(m*n). Найти номера строки и столбца для элемента матрицы, наиболее близкого к среднему значению её элементов.
Паскаль

Среднее значение нашёл.
Вот наработки мои.

program Lab20_2;
 
{$APPTYPE CONSOLE}
 
uses
  Windows,
  SysUtils;
 
var i,j,k,N,M,sum: integer; x:array [1..100,1..100] of Integer; sr: Real;
begin
randomize;
SetConsoleTitle('Lab. 20');
Writeln;
writeln(' Вариант №6');
writeln;
writeln('Программа находит ближайший к ср.арифм. член');
writeln;
write(' Введите количество строк    : '); readln(N);
write(' Введите количество столбцов : '); readln(M);
writeln;
{Заполнение}
For i:=1 To n Do
 For j:=1 To m Do
   x[i,j]:=Random(11);
{Вывод}
For i:=1 To n Do
 Begin
  For j:=1 To m Do Write(x[i,j]:5);
   Writeln;
End;
{Среднее арифметическое}
k:=0;
sum:=0;
For i:=1 To n Do
 For j:=1 To m Do
 begin
 sum:=sum+x[i,j]; k:=k+1;
 end;
sr:=sum/k;
Writeln('Сумма = ',sum,' ; Среднее арифметическое = ',sr:5:3);
write('Всего элементов = ',k);
Readln;
end.