Что необходимо поменять чтоб отыскать сумму частей в каждой строке?

А можешь выложить текст программки?

Поменять (соответственно их местам в программе):
p:=0
p:=p+a[j,i]


Либо программа целиком:
const n=6;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10)+1;
write(a[i,j]:4)
end;
writeln;
end;
for i:= 1 to n do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
writeln ('Сумма частей в строке ',i,' равна: ',s)
end
end.