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

Формулировка задачи:

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

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.

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

Листинг программы

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

Объяснение кода листинга программы

В процедуре stroka объявлены четыре переменные: i, j, k и st, все они имеют тип byte.
Переменная min объявлена как integer.
В цикле for i от 0 до m-1 происходит следующее:
- В цикле переменная i инициализируется значением 0.
- Затем переменная i сравнивается с каждым элементом массива a[i], начиная с индекса 0 и заканчивая индексом n-1.
- Если текущий элемент массива меньше переменной min, то переменная min обновляется значением этого элемента.
- После завершения внутреннего цикла, переменная i увеличивается на 1.
В цикле for j от 0 до n-1 происходит следующее:
- В цикле переменная j инициализируется значением 0.
- Затем переменная j сравнивается с каждым элементом массива a[j], начиная с индекса 0 и заканчивая индексом m-1.
- Если текущий элемент массива больше переменной min, то в переменную st записывается значение да.
- После завершения внутреннего цикла, переменная j увеличивается на 1.
В конце процедуры stroka переменная min возвращается в качестве результата.