найти сумму элементов в каждой строке двумерного массива Помогите, пожалуйста

for (int i = 0; i < n; ++i)
{
int sum = 0;
for (int j = 0; j < m; ++j)
sum += A[i][j];
cout << sum << endl;
}

Подбери себе здесь что-нибудь http://taskcode.ru/matrix/sum

program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
var
j,i,n,m:integer;
a:matr;
s:array[1..100] of integer;
fl:boolean;
procedure eqv3(d:matr;k:integer;var f:boolean);
var
c:array[1..100] of integer;
i,j,w,ch:integer;

begin
for i:=1 to n do
c[i]:=d[i,k];
for i:=1 to n-1 do
for j:=i+1 to n do
if c[i]>c[j] then begin
w:=c[i]; c[i]:=c[j]; c[j]:=w end;
//for i:=1 to n do write(c[i]:3); // writeln;
ch:=0;
for i:=1 to n-2 do begin
if (c[i]=c[i+1]) and (c[i]=c[i+2]) then
begin inc(ch);end;
end;
f:=ch=1;
end;

BEGIN
randomize;
clrscr;
writeln('решение задачи на массив ');
writeln('---------------------------');
writeln;
write('Ввксти число строк--> '); readln(n);
write('Ввксти число столбцов--> '); readln(m);
writeln('Имсходный массив ');
writeln('------------------');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(8);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Сумма строк');
for i:=1 to n do begin
s[i]:=0;
for j:=1 to m do
s[i]:= s[i]+a[i,j];
write( s[i]:4); end;
writeln;
for j:=1 to m do begin
if not odd(j) then
begin eqv3(a,j,fl);
if fl then begin
writeln('Вектор Х: ',' столбец ',j);
writeln;
for i:=1 to n do write(a[i,j]:3);
writeln; break; end;
end;
end;
writeln;
writeln('конец задачи ');
readln;
END.