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

program ABC;
const Nmass=10;
type T2m = array[1..Nmass,1..Nmass] of integer;
T1m = array[1..Nmass] of integer;
var A:T2m;
B:T1m;
N,M,i,s,j: integer;
begin
cls;
writeLn('Введите число элементов в массиве A');
readLn(N,M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
for i:=1 to N do
begin
S:=1;
for j:=1 to M do
S:=S*A[i,j];
WriteLn(s);
end;
If S>=s then
    for i:=1 to n do
begin
S:=0;
for j:=1 to m do
S:=S+A[1,j];
WriteLn(s);
end;
end.

program ABC;
const Nmass=10;
type T2m = array[1..Nmass,1..Nmass] of integer;
var A:T2m;
var N,M,i,s,h,k,j,p,r,l: integer;
begin
r:=0;
writeLn('Введите число элементов в массиве A');
readLn(N,M);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;
writeLn('Исходный массив A:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;
writeln('Умножаем строки');
for i:=1 to N do
begin
S:=1;
for j:=1 to M do
S:=S*A[i,j];
WriteLn(S);
{--------Тут сложение-----------}
if S > r Then 
begin
for h:=1 to i do begin p:=0;
for k:=1 to M do p:= A[h,k] + p;
end;
r:=S; l:=h;
end;
end;
WriteLn('строка ', l ,' максимальная её и суммируем ', p);
{-------------------}
end.