Присвоение значения к указанному индексу массива

const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    m,n,i,j,q,s:byte;
begin
write('Количество строк (до ',nmax,') n: ');
readln(n);
write('Количество столбцов (до ',nmax,') m: ');
readln(m);
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
for j:=1 to m do
 begin
 a[i,j]:=random(40);
write(a[i,j] :5);
 end;
 writeln;
 end;
 for j:=1 to m do
 begin
 s:=s+a[1,j]
 end;
writeln;
write ('Введите индекс для присвоения суммы элементов первой строки массива A в массив B (меньше или равно ',m,'):');
readln(q); {с этого момента у меня не получается}
writeln ('Массив B');
i:=q;
b[i]:= b[q];
 b[q]:=s;
for i:=1 to m do
  begin
  b[i]:=random(40);
  write (b[i]:5);  
  end;
end.

const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    m,n,i,k:byte;
begin
write('Количество строк (до ',nmax,') n: ');
readln(n);
write('Количество столбцов (до ',nmax,') m: ');
readln(m);
writeln('Исходная матрица A:');
for k:=1 to n do
 begin
  for i:=1 to m do
   begin
    a[k,i]:=random(40);
    write(a[k,i]:4);
   end;
  writeln;
 end;
for k:=1 to n do
 begin
  b[k]:=0;
  for i:=1 to m do
  b[k]:=b[k]+a[k,i];
 end;
writeln ('Массив B');
for k:=1 to n do
write (b[k]:4);
end.