В матрице найти количество отрицательных элементов столбцов содержащих максимальный и минимальный элементы

{В матрице nxm, найти количество отрицательных элементов столбцов
содержащих максимальный и минимальный элементы и прибавить это
число к элементам строки сумма элементов которой максимальна}
const
  n=5;m=6;
var
  A: array [1..n,1..m] of integer;
  i,j,s,k,summax,sum :integer;
  kol,max,min,jmax,jmin,imax,imin:integer;
begin
  randomize;
  writeln ('Исходная матрица:');
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=Integer(random(m*n))-n*m div 2;
  max:=a[1,1];  imax:=1;  jmax:=1;
  min:=a[1,1];  imin:=1;  jmin:=1;
  for i:=1 to N do
    begin
      for j:=1 to M do
        begin
          if a[i,j]>max then
            begin
              max:=a[i,j];
              imax:=i;
              jmax:=j;
            end;
          if a[i,j]<min then
            begin
              min:=a[i,j];
              imin:=i;
              jmin:=j;
            end;
          write (a[i,j]:5);
        end;
 
      writeln;
    end;
  writeln('Max: ',max,' в столбце: ',jmax);
  writeln('Min: ',min,' в столбце: ',jmin);
  kol:=0;
  for i:=1 to n do
    begin
      if a[i,jmax]<0 then
        inc(kol);
      if a[i,jmin]<0 then
        inc(kol);
    end;
  writeln('Количество отрицательных элементов столбцов: ',kol);
  summax:=-maxint;
  for i:= 1 to n do
    begin
      sum:=0;
      for j:= 1 to m do
        sum:=sum+a[i,j];
      if  sum>summax then
        begin
          summax:=sum;
          k:=i;
        end;
    end;
  writeln('Номер строки, сумма элементов которой максимальна: ',k);
  for j:=1 to m do
    a[k,j]:=a[k,j]+kol;
  writeln ('Измененная матрица:');    
  for i:=1 to N do
    begin
      for j:=1 to M do
        begin
          write (a[i,j]:5);
        end;
      writeln;
    end;
 
  readln;
end.