После введения из клавиатуры размерности двухмерной матрицы (количество строк и столбиков) целых чисел (знакового целого типа), а также введение ее элементов вывести на экран элементы (если такие есть), которые являются одновременно наименьшими в своей строке и наибольшими в столбике — Pascal(Паскаль)

program Sedl_point;
uses crt;
var n, m, i, k, Max, Min, buf1, buf2: integer;
    Mas: array[1..100,1..100] of integer;
 
begin
     clrscr;
 
     WriteLn('Vvedite razmernost matricy:');
     ReadLn(n,m);
 
     WriteLn('Vvedite matrizu:');
     for i:=1 to n do
         for k:=1 to m do Read(Mas[i,k]);
 
     for i:=1 to n do
         begin
         Min:=Mas[i,1];
         for k:=1 to m do
             if Mas[i,k]<=Min then
                begin
                Min:=Mas[i,k];
                buf1:=k;
                end;
         Max:=Min;
         for k:=1 to n do
             if Mas[k,buf1]>=Max then
                begin
                Max:=Mas[k,buf1];
                buf2:=k;
                end;
         if Max=Min then
            WriteLn('Sedlovaja tochka=',Max,' s koordinatani ',buf2,'x',buf1);
         end;
 
     ReadLn;
     ReadLn;
end.