В заданном массиве X(N, M) все числа различны. В каждой строке выбирается
минимальный элемент, затем среди этих чисел выбирается максимальное. Напечатайте
номер строки массива Х, в которой расположено выбранное число.

а зачем строчка writeln('введите кол строк и столбцов') мне сказали она не нужна . нужно в общем виде,проще

constn1=1000;m1=1000;varn,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.