Формирования вектора, элементы которого равны сумме элементов столбцов матрицы

[duh_si]

Доброго времени суток.

Дана матрица B размером 5х4. Составить программу формирования вектора, элементы которой равны сумме элементов столбцов матрицы B.

Вот такой код получился, но выдает ошибку

Var
  B: array[1...5,1...4] of integer;
  j,i,A,B:integer;
Begin
  for j:=1 to 4 do
 begin
  B[j]:=0;
  for i:=1 to 5 do
  B[j]:=B[j]+A[i,j];
  end;
  for i:=1 to 4 do
 write(B[i]:1);
End.

подскажите что не так написано.

[Stilet]

Все не так.

Var
  А: array[1...5,1...4] of integer;
  B: array[1...4] of integer;
  j,i:integer;
Begin
  for i:=1 to 5 do  begin
  
   for j:=1 to 4 do begin
    readln(a[i,j]);
    if i=1 then b[j]:=0;
    B[j]:=B[j]+A[i,j];
   end;

  end;

  for i:=1 to 4 do  write(B[i]:1);

 readln;
End.

Разницу увидел?

[duh_si]

Виталий, спасибо
я с паскалем очень давно не сталкивался, позабыл его уже.

[Stilet]

Бывает ) .....