Написать функцию, которая по заданной матрице X(M,N) определяет номера строк

type mtr=array[1..20,1..15] of real;
     mnz=set of byte;
function nomera(x:mtr;m,n:integer):mnz;
var i,j:integer;
    mx,s:real;
    a:mnz;
begin
a:=[];
for i:=1 to m do
 begin
  mx:=x[i,1];
  s:=0;
  for j:=1 to n do
   begin
    if x[i,j]>mx then mx:=x[i,j];
    s:=s+x[i,j];
   end;
  if mx>s-mx then a:=a+[i];
 end;
result:=a;
end;
var a,b:mtr;
    i,j:integer;
    str:mnz;
begin
randomize;
writeln('Матрица А:');
for i:=1 to 7 do
 begin
  for j:=1 to 15 do
   begin
    a[i,j]:=i*sin(3.5*j);
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
str:=nomera(a,7,15);
if str=[] then writeln('Нет строк с максимальным большим суммы остальных')
else
 begin
  writeln('Номера строк с максимальным большим суммы остальных');
  for i:=1 to 7 do
  if i in str then write(i:3);
  writeln;
 end;
writeln('Нажмите Enter');
readln;
writeln('Матрица B:');
for i:=1 to 20 do
 begin
  for j:=1 to 5 do
   begin
    b[i,j]:=sin(2.07*j)+i;
    write(b[i,j]:5:1);
   end;
  writeln;
 end;
str:=nomera(b,20,5);
if str=[] then writeln('Нет строк с максимальным большим суммы остальных')
else
 begin
  writeln('Номера строк с максимальным большим суммы остальных');
  for i:=1 to 20 do
  if i in str then write(i:3);
  writeln;
 end;
end.