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

const N = 5;
const M = 10;
 
type item_t = integer;
type line_t = array[1..M] of item_t;
type tabl_t = array[1..N] of line_t;
 
procedure printLine( const l: line_t );
var
  i: integer;
begin
  for i:= 1 to M do
    write(l[i] :5);
  writeln;  
end; 
procedure printTabl( const t: tabl_t );
var
  i: integer;
begin
  for i:= 1 to N do
    printLine(t[i]);
end; 
 
procedure init_2d( var a: tabl_t );
var
  x,y: integer;
begin
    for y:=1 to N do
      for x:=1 to M do
        a[y][x] := random(-100 , 100);
end;
 
function getMulP( const a: line_t ):integer;
var  
  r,x: integer;
begin
    r := 1;
    for x:=1 to M do
      r := r *a[x];
   getMulP := r;      
end;      
 
 
 
var
  a: tabl_t;
  x,y,sumEndLine: integer;
  fBreak: boolean;
  
const DEV_MODE = false;
  
begin 
  repeat
    fBreak := false; 
    
    init_2d(a); 
 
    sumEndLine := 0;
    for x:=1 to M do
      sumEndLine := sumEndLine + a[N][x];
          
    for y:=1 to N do 
      if getMulP(a[y]) = sumEndLine then begin
        writeln( 'Sum == Mul; line: ',y );
        fBreak := true;
      end;
 
  until (not DEV_MODE) OR fBreak;
  
  printTabl(a);
  
  Writeln('-------------------------------');
end.