Исправить задачу (чтобы программа суммировала элементы столбцов и выводило в массив

Const n=4;m=3;
Var A:array[1..n,1..m] of integer;
B:array[1..m] of integer;
i,j:integer;
Begin
For i:=1 to n do
begin
writeln('Введите ', m, ' целых чисел строки ',i);
For j:=1 to m do
read(A[i,j]);
end;
writeln('Матрица');
For i:=1 to n do
begin
For j:=1 to m do
write(A[i,j]:4);
writeln;
end;
For j:=1 to m do
begin
B[j]:=0;
For i:=1 to n do
B[j]:=B[j]+A[i,j];
end;
writeln('Массив');
For j:=1 to m do
write(B[j],' ');
end.