Дана действительная матрица n*m, все элементы которой различны.В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее.Указать индекс элемента с найденным значением — Pascal(Паскаль)

program EvgeniiSp;
uses Crt;
const
 n = 5;
 m = 7;
var
 i,j,k: byte;
 mas: array[1..n,1..m] of integer;
//-------------------------
 procedure Search;
  var
   lit: array[1..n] of integer;
  begin
   writeln;
   for i:=1 to n do
    begin
     k:=mas[i,1];
     for j:=2 to m do
      if k > mas[i,j] then  k:=mas[i,j];
     lit[i]:=k;
     write(lit[i]:4);
    end;
   k:=0;
   writeln;
   for i:=1 to n do
    if k < lit[i] then k:=lit[i];
   write(k:4);
  end;
  
begin
 Randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     mas[i,j]:=random(50);
     write(mas[i,j]:6);
    end;
   writeln;
  end;
 Search;
end.