Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, и столбца с наименьшим элементом

uses crt;
const count=50;
type
   arr=array[1..count,1..count] of integer;
var
   i,n,k,l:integer;
   mas:arr;
 
procedure inputmas(var mas:arr; n:integer);
var
   i,j:integer;
   b:boolean;
   D:set of byte;
begin
D:=[];
for i:=1 to n do begin
    for j:=1 to n do begin
                     b:=true;
                     repeat
                     mas[i,j]:=random(sqr(n))+1;
                     {write('mas[',i,',',j,']'); readln(mas[i,j]);}
                     if not (mas[i,j] in D) then begin
                                                 D:=D+[mas[i,j]];
                                                 b:=false;
                                                 end;
                     until not b;
                     end;
                 {writeln;}
                 end;
end;
 
procedure outputmas(mas:arr; n:integer);
var
   i,j:integer;
begin
for i:=1 to n do begin
    for j:=1 to n do write(mas[i,j]:4);
    writeln;
    end;
end;
 
procedure max(mas:arr; n:integer; var num:integer);
var
   i,j,mx:integer;
begin
mx:=mas[1,1];
num:=1;
for i:=1 to n do
    for j:=1 to n do if mas[i,j]>mx then begin
                                         mx:=mas[i,j];
                                         num:=i;
                                         end;
end;
 
procedure min(mas:arr; n:integer; var num:integer);
var
   i,j,mn:integer;
begin
mn:=mas[1,1];
num:=1;
for i:=1 to n do
    for j:=1 to n do if mas[i,j]<mn then begin
                                         mn:=mas[i,j];
                                         num:=j;
                                         end;
end;
 
function work(mas:arr; k,l:integer):longint;
var
   i,j:integer;
   pk,pl:longint;
begin
pk:=1;
for j:=1 to n do pk:=pk*mas[k,j];
pl:=1;
for i:=1 to n do pl:=pl*mas[i,l];
work:=pk*pl;
end;
 
begin
clrscr;
randomize;
readln(n);
inputmas(mas,n);
{clrscr;}
outputmas(mas,n);
max(mas,n,k);
min(mas,n,l);
write('‘Є*«па*®Ґ Їа®Ё§ўҐ¤Ґ*ЁҐ: ',work(mas,k,l));
readkey;
end.