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

const
  n = 4;
 
var
  a, b, c: array[1..n, 1..n] of integer;
  i, j, max, s, min, min_i, min_j: integer;
 
BEGIN
  
  min := 101;
  min_i := 0;
  min_j := 0;
  max := 0;
  s := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do  
    begin
      a[i, j] := random(50) - random(100);
      if (i = j) and (a[i, j] < min) 
        then begin 
        min := a[i, j];
        min_i:= i;
        min_j:= j;
        end;
        
      if a[i, j] < 0 
        then s += a[i, j];
        
      if a[i, j] > max
        then max := a[i, j];
      write(a[i, j]:5);
    end;
    writeln;
  end;
  
  writeln('Минимальный элемент на главной диагонали: ', min,'[',min_i,',',min_j,']');
  writeln('Cуммa отрицательных элементов: ',s);
  write('Mаксимальный элемент: ',max);
  
  
END.

   a[i, j] :=  - random(100);

  writeln('Минимальный элемент на главной диагонали: ', min,'[',min_i,',',min_j,']');

const
  n = 4;
 
var
  a: array[1..n, 1..n] of integer;
  i, j, imax, jmax, s: integer;
 
begin
  imax := 1;
  jmax := 1;
  s := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do  
    begin
      a[i, j] := random(50) - random(100);
      if a[i, j] > a[imax, jmax] then 
      begin
        imax := i;
        jmax := j;
      end;
      if a[i, j] < 0 then 
        s := s + a[i, j];
      write(a[i, j]:5);
    end;
    writeln;
  end;
  writeln('Cуммa отрицательных элементов: ', s);
  write('Mаксимальный элемент: ', a[imax, jmax]);
end.