Двумерные массивы

[Ондрюша]

Кому не сложно, и есть свободное врямя подскажите как в данной программе сделать так, чтобы выводил матрицу по правилу: 1 элемент - номер строки, следуйщие - сумма всех предидущих.
Program Lab78_23;
const n=6;
m=5;
type dv_mass = array[1..n, 1..m] of integer;
var Bv_mass;
Procedure Init1 (var Bv_mass);
var i, j:integer;
begin
for i:=1 to n do
for j:=1 to m do
B[i,j]:=-105 + random(211);
end;
Procedure Print (Bv_mass);
var i,j :integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write (B[i,j]:6);
writeln;
end;
end;
begin
Init1 (B);
Print (B);
end.

[Mad_Cat]

for i:=1 to n do
begin
a[i,1]:=i;
s:=0;
for j:=2 to n do
begin
s:=s+a[i,j-1];
a[i,j]:=s;
end;
end;