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

program ex1;
uses crt;
const N1=10;N2=10;
type matrix=array[1..N1,1..N2] of integer;
var n,m:integer;
a,b,c:matrix;
 
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(11)-5;
end;
 
procedure PrintMatrix(a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
       begin for j:=1 to m do
        write(a[i,j]:7);
        writeln;
        end;
end;
 
procedure search(a:matrix; n,m:integer);
var i,j,min,t,r,w:integer;
begin 
min:=-1*(MaxInt);
for i:=1 to n do
   for j:=1 to m do
   if (a[i,j]>min) and(a[i,j]<0) then
   begin min:=a[i,j];t:=1;r:=i;w:=j;end;
   
   if(t<>1) then writeln('таких элементов нет')else
   begin
   writeln('номер строки максимального отрицательного элемента: ',r);
   writeln('номер столбца максимального отрицательного элемента: ',w);
   end;
end;
 
begin
RandomMatrix(a,n,m);
PrintMatrix(a,n,m);
search(a,n,m);
end.