Определить значение функции "Y"

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of real;
procedure Pol(m:matr;n:byte;var s:real; var k:integer);
var i,j:byte;
begin
s:=0;k:=0;
for i:=1 to n do
for j:=1 to n do
if m[i,j]>0 then
 begin
  s:=s+m[i,j];
  k:=k+1;
 end;
end;
function Min(m:matr; n:byte):real;
var i,j:byte;
    mn:real;
begin
mn:=m[1,1];
for i:=1 to n do
for j:=1 to n do
if m[i,j]<mn then mn:=m[i,j];
Min:=mn;
end;
function Max(m:matr; n:byte):real;
var i,j:byte;
    mx:real;
begin
mx:=m[1,1];
for i:=1 to n do
for j:=1 to n do
if m[i,j]>mx then mx:=m[i,j];
Max:=mx;
end;
procedure Summa1(m:matr;n:byte;a:real;b:integer;var s:real);
var i,j:byte;
begin
s:=0;
for i:=1 to n do
for j:=1 to n do
s:=s+a/(m[i,j]);
writeln('Y=',s:0:2);
end;
procedure Summa2(a,b,c:real;d:integer; var s:real);
begin
s:=a/abs(b-c)+d;
writeln('Y=',s:0:2);
end;
var a:matr;
    k,i,j:byte;
    p2,p8,p9,y:real;
    m2:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' k=');
readln(k);
until k in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to k do
 begin
   for j:=1 to k do
    begin
     a[i,j]:=10*random-4;
     write(a[i,j]:6:2);
    end;
   writeln;
 end;
writeln;
Pol(a,k,p2,m2);
write('M2=',m2);
if m2<2 then writeln('  меньше 2')
else writeln('  не меньше 2');
p8:=Min(a,k);
p9:=Max(a,k);
if m2<2 then Summa1(a,k,p2,m2,y)
else Summa2(p2,p9,p8,m2,y);
readln
end.