Дан массив 7 х 5. Определить в какой строке находится наибольший из минимальных элементов каждой строке.

uses crt;

var
  A : array [1..nmax, 1..mmax] of integer;
  i, j : integer;
  min, imin, maxmin, imaxmin : integer;
 
begin
  ClrScr;
  Writeln('Введите элементы массива: ');
  for i := 1 to nmax do
    for j := 1 to mmax do
      Read(A[i, j]);
  ClrScr;
  for i := 1 to nmax do
    begin
      for j := 1 to mmax do Write(A[i, j]:3, ' ');
      Writeln;
    end;
  min := A[1, 1];
  imin := 1;
  for j := 1 to mmax do if A[1, j] < min then min := A[1, j];
  maxmin := min; imaxmin := imin;
  for i := 2 to nmax do
    begin
      min := A[i, j]; imin := j;
      for j := 1 to mmax do if A[i, j] < min then
        begin
          min := A[i, j];
          imin := i;
        end;
      if min > maxmin then
        begin
          maxmin := min;
          imaxmin := i;
        end;
    end;
  Writeln('Максимальный среди минимальных элемент в строке № ', imaxmin);
  Readln;
end.