Дана матрица(двумерный массив). посчитать произведения всех положительных элементов в каждой строке и занести их в одномерный массив(с процедур) подскажите,,дошло только как выводить в столбик эти произведения,но не как занести их в полноценный массив(

Type   tmatrix = array[,] of integer;   tvector = array of integer; var    a: tmatrix;   b: tvector;   m,n,i,j: integer;     procedure createmulvector(a: tmatrix; var b: tvector); var i, j: integer; f: boolean; begin   setlength(b, length(a, 0));   for i : = 0 to length(a, 0) - 1 do begin     b[i] : = 1; f : = false;     for j : = 0 to length(a, 1) - 1 do begin       if a[i,j] > 0 then begin         f : = true;         b[i] : = b[i] * a[i,j];       end;     end;     if not f then b[i] : = 0;   end; end; procedure writevector(b: tvector); var i: integer; begin   for i : = 0 to length(b) - 1 do      write(b[i]: 3); end; begin   randomize;   n : = random(10) + 1;   m : = random(10) + 1;   setlength(a, n, m);   writeln('исходная матрица: ');   for i : = 0 to n-1 do begin     for j : = 0 to m-1 do begin       a[i,j] : = random(10) - 5;         write(a[i,j]: 4);     end;     writeln;   end;       createmulvector(a, b);   writeln('полученный вектор: ');   writevector(b); end.

s = input("Ты любишь купаться")

print( str(s) + "?" )

print("а мне нельзя, я же компьютер.")