В матрице определить номер и значение максимального отрицательного элемента

program qwerty;
const
n=3;
var
a: array [1..n, 1..n] of integer;
b: array [1..1, 1..1] of integer;
i,j,max: integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<0 then
b[1,1]:=a[i,j];
for i:=1 to n do
for j:=1 to n do
if b[1,1]>a[i,j] then
b[1,1]:=a[i,j];
max:=b[1,1];
writeln (max);
end.

  const
    n=3;
  var
    a: array[1..n,1..n] of integer;
    i,j,max,x,y: integer;
begin
  max:=-32768;
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        if (a[i,j]<0)and(a[i,j]>max) then
        begin
          max:=a[i,j];
          x:=i;
          y:=j;
        end;
      end;
  writeln('max = ',max,'[',x,',',y,']');
  readln;
end.

const
    n=3;
  var
    a: array[1..n,1..n] of integer;
    i,j,max,x,y: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        if a[i,j]<0 then
        begin
          max:=a[i,j];
          x:=i;
          y:=j;
        end;
      end;
 
  for i:=n downto 1 do
    for j:=n downto 1 do
      if (a[i,j]<0)and(a[i,j]>max) then
        begin
          max:=a[i,j];
          x:=i;
          y:=j;
        end;
 
  writeln('max = ',max,'[',x,',',y,']');
  readln;
end.