Дан массив. Определить количество элементов, больших суммы всех элементов массива. и напечатать их номера- Pascal(Паскаль)

program Matrix;

uses crt;

const
  nmax = 10;

var
  a: array [1 .. nmax, 1 .. nmax] of integer;
  n, m, i, j, sum, count: integer;

Begin
  write('N = ');
  readln(n);
  write('M = ');
  readln(m);
  sum := 0;
  count := 0;

  writeln('Enter your matrix: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
      read(a[i, j]);
  end;

  for i := 1 to n do
    for j := 1 to m do
      sum := sum + a[i, j];
  writeln(sum);

  for i := 1 to n do
    for j := 1 to m do
    begin
      if a[i, j] > sum then
      begin
        inc(count);
        write('Number {', i, ';', j, ')', ' ');
      end;
    end;
  write('Count = ', count);

End.