Найти наибольший элемент двумерной матрицы и в строке с этим элементом найти наименьший элемент

const
 m=5;
 n=5;
 
var
 i, k, ti, tk,tk2 :byte;
 max, min :integer;
 mas: array [1..m, 1..n] of integer;
 
begin
  for i:=1 to m do             //рандомно заполняется массив
   for k:=1 to n do
     mas[i,k]:=random(90)+1;
     
  for i:=1 to m do
   for k:=1 to n do
     begin
      write(mas[i,k]:3);
      if k=n then writeln;
     end;
 
 
  max:= mas[1,1];
  for i:=1 to m do
   for k:=1 to n do
    begin
     if mas[i,k]>max then
        begin
         max:=mas[i,k];
         ti:=i;
         tk:=k;
        end;
     if (i=1) and (k=1) then
       begin
         ti:=i;
         tk:=k;
       end;
    end;
  Writeln('Максимальный элемент [',ti,',',tk,'] ', max);
 
  min:=mas[ti,1];
  for k:=1 to n do
    begin
      if mas[ti,k]<min then
        begin
          min:= mas[ti,k];
          tk2:=k;
        end;
      if k=1 then
        tk2:=k;
 
    end;
  Writeln('Минимальный элемент в строке ',ti,' [',ti,',',tk2,'] ', min);
  writeln;
end.

const
 m=5;
 n=5;
 
var
 i, k, ti, tk,tk2 :byte;
 max, min :integer;
 mas: array [1..m, 1..n] of integer;
 
begin
  for i:=1 to m do             //рандомно заполняется массив
   for k:=1 to n do
     mas[i,k]:=random(99)+1;       //числа от 1 до 99
     
  for i:=1 to m do                  //вывод массива
   for k:=1 to n do
     begin
      write(mas[i,k]:3);
      if k=n then writeln;          //если дошли до конца строки, то перейти на следующую
     end;
 
 
  max:= mas[1,1];                   //считать первый элемент массива максимальным
  for i:=1 to m do
   for k:=1 to n do
    begin
     if mas[i,k]>max then            //если текущий элемент максимальный то
        begin
         max:=mas[i,k];              //считать его максимальным
         ti:=i;                      //запомнить строку элемента
         tk:=k;                      //запомнить столбец элемента
        end;
     if (i=1) and (k=1) then         //если первый элемент оказался максимальным во всем массиве
       begin
         ti:=i;                     // то запомнить его позицию
         tk:=k;
       end;
    end;
  Writeln('Максимальный элемент [',ti,',',tk,'] ', max);       //вывод максимального в массиве
 
  min:=mas[ti,1];                   // считать первый элемент выбранной строки минимальным
  for k:=1 to n do
    begin
      if mas[ti,k]<min then         //если текущий меньше минимального
        begin
          min:= mas[ti,k];          //считать его минимальным
          tk2:=k;                   //запомнить позицию в строке
        end;
      if k=1 then                  //если первый оказался минимальным
        tk2:=k;                    //запомнить позицию в строке
 
    end;
  Writeln('Минимальный элемент в строке ',ti,' [',ti,',',tk2,'] ', min);     //вывод минимального элемента в указанной строке
  writeln;
end.