Из элементов массива а сформировать элементы массива в по правилу: b[i]=a[1]+a[2]++a[i]. напишите !

Var
A,B:array[1..13] of integer;
i,j:integer;
Begin
Write('A: ');
For i:= 1 to 13 do
Begin
A[i]:=random(13)+1;
Write(A[i],' ')
End;
WriteLn;
Write('B: ');
For j:= 1 to 13 do
 Begin
 For i:= 1 to j do
  B[j]:=B[j]+A[i];
 Write(B[j],' ')
 End
End.