Найти произведение двумерного и одномерного массивов

const
      m=2;
      n=4;
var 
   a:array[1..n,1..m] of integer;
   b:array[1..n] of integer;
   i,j:integer;
begin
  writeln('Заполните массив A');
  for i:=1 to n do
    for j:=1 to m do begin
      write('A[',i,',',j,']=');
      readln(a[i,j]);
    end;
  writeln(' Заполните массив B');
    for i:=1 to n do begin
      write('B[',i,']=');
      readln(b[i]);
    end;
  writeln('Произведение:');
  for i:=1 to n do
    for j:=1 to m do
      writeln('A[',i,',',j,']*B[',i,']=',A[i,j]*B[i]);
  readln;
end.

const m=2;
      n=4;
var
   a:array[1..n,1..m] of integer;
   b,c:array[1..n] of integer;
   i,j:integer;
begin
writeln('Заполните массив A');
for i:=1 to n do
for j:=1 to m do
 begin
  write('A[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln(' Заполните массив B');
for i:=1 to n do
 begin
  write('B[',i,']=');
  readln(b[i]);
 end;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln
 end;
writeln('Массив');
for i:=1 to n do
write(b[i]:5);
writeln;
for i:=1 to n do
 begin
  c[i]:=0;
  for j:=1 to m do
  c[i]:=c[i]+a[i,j]*b[j];
 end;
writeln('Произведение:');
for i:=1 to n do
write(c[i]:5);
end.