В заданной матрице А(N,N) найти индексы 1-го элемента, превосходящего среднее арифметическое всех элементов — Pascal(Паскаль)

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.