В массиве размером NxM все числа различны. В каждой строке выбирается минимальный элемент. Затем среди этих чисел выбирается максимальное. Напечатать номер строки массива, в которой расположено выбранное число — Pascal(Паскаль)

Const
  N = 3;
  M = 3;
  Matrix: Array[1..N,1..M] of Integer = ((11,92,63),(24,45,6),(97,81,29));
Var
  Min,Max: Integer;
  i,j,Row: Integer;
begin
 Max := Matrix[1,1];
 Row := 1;
 for i := 1 to N
 do begin
     Min := Matrix[i,1];
     for j := 2 to M
     do if Matrix[i,j] < Min
     then Min := Matrix[i,j];
     if Min > Max
     then begin
          Max := Min;
          Row := i;
          end;
     end;
 WriteLn(Row:4,Max:4);
 ReadLn;
end.