Дана действительная матрица размера n x m, все элементы которой различны

var n:Integer; mn:Double; mj:Integer;
               mx:Double; //Ответ - максимальный элемент из минимальных
               mxi,          //индекс строки максимального элемента
               mxj:Integer; //индекс столбца максимального элемента
               i,j:Integer;
begin
 n:=Length(T);//количество строк
 mx:=T[0,0];//Начальные значения
 mxi:=0;
 mxj:=0;
 for i:=0 to N do
     mn:=T[i,0];
     mj:=0;
     begin
       for j:=0 to n do
             if mn>=T[i,j] then //нахождение минимального элемента в строке
             begin
               mn:=T[i,j]; 
               mj:=j; 
             end;
       if mx<=mn then //Если минимальный элемент в строке больше текущего максимума, то сохранить
       begin
         mx:=mn;
         mxi:=i;
         mxj:=mj;
       end;
     end;
end;

var   n:Integer; mn:Double; mj:Integer;
                 mx:Double;
                 mxi,          
                 mxj:Integer; 
                 i,j:Integer;
                 T:array of array of Double; //Сама матрица
 n:=Length(T);
   mx:=T[0,0];
   mxi:=0;
   mxj:=0;
   for i:=0 to N-1 do //Граница должна быть до N-1
   begin //Должен быть
       mn:=T[i,0];
       mj:=0;
       begin
         for j:=0 to n-1 do
               if mn>T[i,j] then  //убрал "=", но это не критично
               begin
                 mn:=T[i,j];
                 mj:=j;
               end;
         if mx<mn then //убрал "=", но это не критично
         begin
           mx:=mn;
           mxi:=i;
           mxj:=mj;
         end;
       end; //еще один end
   end;