Вычислить сумму элементов матрицы, минимальный и максимальный элементы

const
  nmax = 100;
 
var
  a: array[1..nmax, 1..nmax] of integer;
  f: text;
  max, min, sum, n, m, i, j: integer;
 
begin
  randomize;
  write('N, M? ');
  readln(n, m);
  assign(f, 'f.txt');
  rewrite(f);
  writeln(f, n, ' ', m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -1000 + random(2001);
      write(f, a[i, j], ' ');
    end;
    writeln(f, ' ');
  end;
  close(f);
  reset(f);
  writeln('Исходный массив:');
  readln(f, n, m);
  max := -Maxint;
  min := Maxint;
  sum := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      read(f, a[i, j]);
      write(a[i, j]:8);
      if a[i, j] > max then
        max := a[i, j];
      if a[i, j] < min then
        min := a[i, j];
      sum := a[i, j] + sum;
    end;
    writeln;
  end;
  writeln('Max: ', max);
  writeln('Min: ', min);
  writeln('Sum: ', sum);
  close(f);
  append(f);
  writeln(f, 'Max: ', max);
  writeln(f, 'Min: ', min);
  writeln(f, 'Sum: ', sum);
  close(f);
end.