Взаданном массиве x(n, m) все числа различны. в каждой строке выбирается минимальный элемент, затем среди этих чисел выбирается максимальное. напечатайте номер строки массива х, в которой расположено выбранное число.

Const
n1=1000;
m1=1000;
var
n,m,i,j,min,max,i_max:integer;
a:array[1..n1,1..m1]of integer;
    begin
        writeln('введите кол строк и столбцов');
         readln(n,m);
             for i:=1 to n do
                 for j:=1 to m do
                      readln(a[i,j]);
for i:=1 to n do
    begin
        writeln;
              for j:=1 to m do
                    write(a[i,j]:4);
    end;
max:=-32767;
for i:=1 to n do
    begin
        min:=a[i,1];
           for j:=1 to m do   
                if a[i,j]<min then
                   min:=a[i,j];
         if min>max then
              begin
                   max:=min;
                   i_max:=i;
              end;
      end;
writeln;
writeln('i: ',i_max,'    znach: ',max);
end.