В массиве X[m, n] все числа различны. В каждой строке находится минимальный элемент, затем среди этих чисел выбирается максимальное. Напечатать номер строки массива X, в которой расположено выбранное число. Составить функцию осуществляющую это — Pascal(Паскаль)

program PascalGuru;

var
  X: array [1 .. 30, 1 .. 30] of integer;
  i, j, m, n: integer;

  { -------------------------------------------- }
function minmax: integer;
var
  i, j, min, max: integer;
  MINIM: array [1 .. 30] of integer;
begin
  for i := 1 to m do
  begin
    min := X[i, 1];
    for j := 2 to n do
      if X[i, j] < min then
        min := X[i, j];
    MINIM[i] := min;
  end;

  max := 1;
  for i := 2 to m do
    if MINIM[i] > MINIM[max] then
      max := i;

  minmax := max;
end;

{ -------------------------------------------- }
begin
  write('strok M= ');
  readln(m); { считываем размер массива }
  write('stolbcov N= ');
  readln(n); { считываем размер массива }

  writeln('Vvedite elementy massiva: ');
  for i := 1 to m do
    for j := 1 to n do
    begin
      write('X[', i, ',', j, ']=');
      readln(X[i, j]);
    end; { считываем сам массив }

  write('Vot vvedennyy vami massiv: ');
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(X[i, j]:8);
  end; { выводим массив }

  writeln;
  writeln;
  writeln('Otvet (nomer stroki): ', minmax);

  readln;

end.