В двумерном массиве найти сумму максимального и минимального элементов

const m = 8;
var i, j, max, min, s: integer;
    a: array [1..m, 1..m] of integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m
    do begin
      for j := 1 to m
        do begin
          a[i, j] := 99 - random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  max := a[1, 1];
  min := max;
  for i := 1 to m
    do for j := 1 to m
      do if min > a[i, j]
        then min := a[i, j]
        else if max < a[i, j]
          then max := a[i, j];
  writeln('Min = ', min);
  writeln('Max = ', max);
  s := min + max;
  writeln('Sum = ', s);
  if s < 0
    then begin
      writeln('Result array:');
      for i := 1 to m
        do begin
          for j := 1 to m
            do begin
              if (j > i) and (a[i, j] < 0) then a[i, j] := 0;
              write(a[i, j]:4)
            end;
          writeln
        end
    end;
  write('Complete, press <Enter> to exit.'); {строку можно удалить}
  readln {строку можно удалить}
end.