Найти: произведение отрицательных элементов матрицы, максимальный и минимальный элементы

const
  n=6;
var
  a: array[1..n,1..n] of integer;
  i,j,i_max,i_min: byte;
  s: longint;
  tmp,max,min: integer;
begin
  randomize;
  s:=1;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
      if a[i,j]<0 then s:=s*a[i,j];
    end;
    writeln;
  end;
  writeln;
  
  max:=a[1,1]; min:=a[1,1]; 
  i_max:=1; i_min:=1;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if a[i,j]>max then 
      begin
        max:=a[i,j];
        i_max:=i;
      end;
      if a[i,j]<min then
      begin
        min:=a[i,j];
        i_min:=i;
      end;
    end;
  if i_max=i_min then writeln('max и min элементы - в одной строке.')
  else begin
    writeln('max = ',max,' (в ',i_max,' строке).'); 
    writeln('min = ',min,' (в ',i_min,' строке).'); 
    for j:=1 to n do
    begin
      tmp:=a[i_max,j];
      a[i_max,j]:=a[i_min,j];
      a[i_min,j]:=tmp;
    end;
    writeln;
    writeln('Преобразованный массив:');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  writeln('Произведение отрицательных элементов = ',s);
  readln;
end.