[Redstason]

Код:

j:=1;
while (j<=m) \\количество строк
 begin
   i:=2; 
   mas[j]:=ar[j][1];
   while (i<=n) \\количество столбцов
     begin
      if (mas[j]>ar[j][i]) then
       mas[j]:=ar[j][i];
      Inc(i);
     end;
  Inc(j);
 end;

\\ получили масив

j:=1;
while (j<=m) 
 begin
  i:=1;
  while (i<m) 
    begin
     if mas[i]>mas[i +1] then
      mas[i]:=mas[i+1];
     Inc(i);
    end;
  Inc(j);
 end;