Нахождение индексов строк, содержащих максимальный отрицательный и минимальный положительный элементы квадратной матрицы

program matr;
const n=4; m=4;
var i,j:integer;
    a:array[1..n,1..m] of integer;
    max,min,p,maxi,maxj,mini,minj:integer;
begin
 writeln('Введите матрицу: ');
 writeln('Введите ',n,' элементов: ');
 for i:=1 to n do
  for j:=1 to m do
    begin
      write('a[',i,',',j,']= ');
      readln(a[i,j]);
    end;
 read(a[i,j]);
 max:=-32768;  {çàäàåì çíà÷åíèÿ ìàêñèìóìó è ìèíèìó, ò.ê. èùåì íà êàæäîé ñòðîêå }
 min:=32767;
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   if a[i,j]>max then   {óñëîâèÿ ïîèñêà ìàêñèìóìà}
    begin
     max:=a[i,j];
     maxi:=i;          {çàïîìèíàåì èíäåêñû ìàêñèìóìà}
     maxj:=j;
    end;
   if a[i,j]<min then { óñëîâèÿ ïîèñêà ìèíèìóìà}
    begin
     min:=a[i,j];
     mini:=i;      {çàïîìèíàåì èäåêñû ìèíèìóìà}
     minj:=j;
    end;
  end;
 writeln('Èíäåêñ ìàêñèìóìà: ',maxi);
 writeln('Èíäåêñ ìèíèìóìà: ',mini);
end;
end.