Двумерный массив. Опции

[givi]

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

Код

uses crt;
var mas:array[1..4,1..4] of integer;
   min,max,x,i,j:integer;
begin
RANDOMIZE;
clrscr;
 for i:=1 to 4 do begin
   for j:=1 to 4 do begin
        mas[i,j]:=randoM(50);
     end;
   end;


    for i:=1 to 4 do begin
     WriteLn(' ');
     for j:=1 to 4 do begin
        write(mas[i,j]); Write(' ');

     end;

   end;

    max:= mas[1,1];
    for i:=1 to 4 do begin
     for j:=1 to 4 do begin
       if max< mas[i,j] then begin
         max:=mas[i,j];
       end;
     end;
   end;
   writeln('');
   writeln ('max=',max);



   min:= mas[1,1];
    for i:=1 to 4 do begin
     for j:=1 to 4 do begin
       if min > mas[i,j] then begin
         min:= mas[i,j];
       end;
     end;
    end;
   writeln ('min=',min);



    for i:=1 to 4 do begin
       WriteLn(' ');
         for j:=1 to 4 do begin
            write(mas[j,i]); Write(' ');

         end;
    end;
readkey;

end.