В прямоугольной таблице указать столбец, содержащий максимальный отрицательный элемент

type
  mas_2 = array [1..20, 1..20] of integer;
 
procedure inp2(var m, n: integer; var a: mas_2);
var
  i, j: integer;
begin
  write('Размеры таблицы? ');
  readln(m, n);
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := random(20) - 5
end;
 
procedure outp2(m, n: integer; const a: mas_2);
var
  i, j: integer;
begin
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(a[i, j]:5);
  end;
  writeln;writeln;
end;
 
procedure stroka(a: mas_2; m, n: byte);
var
  i, j, k, min, st: byte;
begin
  k := 0;
  for i := 1 to m do
    for j := 1 to n do
      if a[i, j] < 0 then
      begin
        if k = 0 then
        begin
          min := a[i, j];
          st := 1;
          k := 1;
        end
        else if (a[i, j] > min) and (a[i, j] < 0) then
        begin
          min := a[i, j];
          st := j;
        end;
      end;
  if k = 0 then write('В матрице нет отрицательных элементов')
  else write('Максимальный отрицательный =', min, ' в столбце', st);
end;
 
var
  k, i, j, l: byte;
  a: mas_2;
  m, n: integer;
 
begin
  inp2(m, n, a);
  outp2(m, n, a);
  stroka(a, m, n);
end.

type
mas_2 = array [1..20, 1..20] of integer;
 
procedure inp2(var m, n: integer; var a: mas_2);
var
i, j: integer;
begin
write('Ðàçìåðû òàáëèöû ');
readln(m, n);
for i := 1 to m do
for j := 1 to n do
a[i, j] := random(20) - 5;
end;
 
procedure outp2(m, n: integer; const a: mas_2);
var
i, j: integer;
begin
for i := 1 to m do
begin
writeln;
for j := 1 to n do
write(a[i, j]:5);
end;
writeln;writeln;
end;
 
procedure stroka(a: mas_2; m, n: integer);
var
i, j, min, st: integer;
begin
min:=-5;
st:=0;
for i := 1 to m do
 for j := 1 to n do
if (a[i, j] < 0)and(a[i, j] > min) then
begin
min := a[i, j];
st := j;
end;
if (st = 0) then write('Â ìàòðèöå íåò îòðèöàòåëüíûõ ýëåìåíòîâ')
else write('Ìàêñèìàëüíûé îòðèöàòåëüíûé =', min, ' â ñòîëáöå ', st);
end;
 
var
a: mas_2;
m, n: integer;
 
begin
inp2(m, n, a);
outp2(m, n, a);
stroka(a, m, n);
end.

procedure stroka(a: mas_2; m, n: byte);
var
  i, j, k, st: byte;
  min: integer;//числа в массиве от -5