Элементы матриц просматривать слева направо и сверху вниз.
uses crt;
var
a: array [1 .. 100, 1 .. 100] of integer;
n, m, i, j, sr: integer;
d: real;
begin
read(n);
for i := 1 to n do
for j := 1 to n do
begin
read(a[i, j]);
sr := sr + a[i, j];
end;
d := sr / sqr(n);
m := sqr(n);
n := sqr(n);
for i := 1 to n do
for j := 1 to n do
if (a[i, j] > d) and (i < m) then
begin
m := i;
n := j;
end;
write(m, n);
readln;
readln;
end.