Unit Five Six Sample Program

{determine which row of a has the largest sum}
program rows;
var a:array[1..10,1..10] of integer;
sum,largestsum,largestrow,nocols,norows:integer;
i,j:integer;
begin
read(norows);
read(nocols);
for i:=1 to norows do begin
for j:=1 to nocols do begin
read(a[i,j]);
end;
end;

{start translating here}
largestsum:=-10000;
for i:=1 to norows do begin
sum:=0;
for j:=1 to nocols do begin
sum:=sum+a[i,j];
end;
if sum>largestsum then begin
largestrow:=i;
largestsum:=sum;
end;
end;
{end translating here}

write('the number of the largest row is ',largestrow);writeln;
write('the sum of the row is ',largestsum);writeln;
end.