Дан двумерный массив n*m элементы введены с клав. сформировать линейный массив В каждый элемент которого равен сумме элементов в соответствующих столбцах- Pascal(Паскаль)

Program Name;
uses CRT; 
a:array[1..m,1..n]of integer;
b:array[1..n]of integer;
i,j,sum;:integer;
begin
ClrScr;
sum:=0;
for i:=1 to m do 
for j:=1 to n do 
readln(a[i,j]);
for j:=1 to n do begin
for i:=1 to m do begin
sum:=sum+a[i,j];
end;
b[j]:=sum;
sum:=0;
end;
for i:=1 to n do
write(' Новый массив', b[i]);
readln;
end.