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

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

В прямоугольной таблице указать строку, содержащую максимальный отрицательный чётный элемент. А именно как создать процедуру которая ищет максимальный отрицательный четный элемент!!!!!1 (Сообщение было перенесено из дублирующей темы)

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

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

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) - 10;
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:=-10;
st:=0;
for i := 1 to m do
 for j := 1 to n do
if (a[i, j] mod 2=0)and(a[i, j] < 0)and(a[i, j] > min) then
begin
min := a[i, j];
st := i;
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.

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

Создается тип данных mas_2, который представляет собой двумерный массив целых чисел размером от 1 до 20.
Определяются два процедурных блока: inp2 и outp2. Первый из них запрашивает у пользователя размеры таблицы, а второй выводит эти размеры и значения элементов таблицы.
В процедуре stroka определяется переменная min, которая будет хранить минимальное значение среди всех отрицательных четные элементов таблицы. Переменная st будет хранить номер строки с максимальным отрицательным четным элементом.
В цикле for происходит проверка каждого элемента таблицы. Если текущий элемент является отрицательным четным и его значение меньше min, то min обновляется, а st обновляется на номер строки, в которой находится текущий элемент.
После завершения цикла проверяется, была ли найдена пара значений min и st. Если да, то выводится сообщение о том, что отрицательных четных элементов в таблице нет. В противном случае выводится сообщение с найденным максимальным отрицательным четным элементом и номером строки, в которой он находится.
В основной части программы вызываются процедуры inp2, outp2 и stroka с заданными размерами таблицы.