Если все суммы значений элементов строк матрицы A(nxm) больше произведения этих строк, вывести сообщение

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
const
    lim=5;
  var
    B:array[1..lim, 1..lim] of integer;
   nom,sum,pr,n,m,i,j:integer;
   sr:real;
  dat,res:textfile;
  flag:boolean;
begin
  SetConsoleCp(1251);
  SetConsoleOutputCp(1251);
  AssignFile(dat, Paramstr(1));
  Reset(dat);
    AssignFile(res, Paramstr(2));
    Rewrite(res);
    Writeln(res, 'Контрольная работа');
    readln(dat,n);
    Writeln(res,'Количество строк:', n);
    readln(dat,m);
    Writeln(res,'Количество столбцов:', m);
    For i:=1 to n do
Begin
For j:=1 to m do read (dat,B[i,j]);
readln(dat);
end;
 writeln(res,' Исходная квадратная матрица из ',n:1,' строк и ',m:1,'  столбцов');
For i:=1 to n do
Begin
For j:=1 to m do write (res,B[i,j]:2,' ');
writeln(res);
End;
Flag:=true;
 while (i<=n) and (flag=true) do begin
   sum:=0;
   pr:=1;
   nom:=0;
   Sr:=0;
For j:=1 to m do begin
Sum:=Sum+B[i,j];
Pr:=Pr*B[i,j];
if Sum>Pr then
 Writeln(res,'Все суммы больше')
else begin nom:=i; flag:=false;
Writeln(res,'Номер первой строки, для которой не выполняется условие',nom);
Sr:=Sum/m;
Writeln(res, 'Среднее арифметическое этой строки', Sr);
end;
 end;
 inc(i);
 
 end;
 Closefile(dat);
 Closefile(res);
 Writeln('Press Enter...');
 Readln;
end.

while (i<=n) and (flag=true) do begin

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
const
    lim=5;
  var
    B:array[1..lim, 1..lim] of integer;
    sum:array[1..lim] of integer;
    pr:array[1..lim] of integer;
   nom,n,m,i,j:integer;
   sr:real;
  dat,res:textfile;
  flag:boolean;
begin
  SetConsoleCp(1251);
  SetConsoleOutputCp(1251);
  AssignFile(dat, Paramstr(1));
  Reset(dat);
    AssignFile(res, Paramstr(2));
    Rewrite(res);
    Writeln(res, 'Контрольная работа');
    readln(dat,n);
    Writeln(res,'Количество строк:', n);
    readln(dat,m);
    Writeln(res,'Количество столбцов:', m);
    For i:=1 to n do
Begin
For j:=1 to m do read (dat,B[i,j]);
readln(dat);
end;
 writeln(res,' Исходная квадратная матрица из ',n:1,' строк и ',m:1,'  столбцов');
For i:=1 to n do
Begin
For j:=1 to m do write (res,B[i,j]:2,' ');
writeln(res);
End;
Flag:=true;
  i:=1;
 while (i<=n) and (flag) do begin
  sum[i]:=0;
   pr[i]:=1;
   nom:=0;
   Sr:=0;
For j:=1 to m do begin
Sum[i]:=Sum[i]+B[i,j];
Pr[i]:=Pr[i]*B[i,j];
end;
if Sum[i]>Pr[i]  then
Writeln(res, 'Все суммы больше')
else
begin flag:=false; nom:=i;
Writeln(res,'Номер первой строки, для которой не выполняется условие',nom);
Sr:=Sum[i]/m;
Writeln(res, 'Среднее арифметическое этой строки', Sr);
 end;
 inc(i);
 end;
 
 Closefile(dat);
 Closefile(res);
 Writeln('Press Enter...');
 Readln;
end.