В заданном массиве 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]max then               begin                    max:=min;                    i_max:=i;               end;       end; writeln; writeln('i: ',i_max,'    znach: ',max); end.