Здравствуйте, Артем Глушков!
Это нужно делать так, как в программе, приведенной в приложении
Надеюсь, все понятно? Если нет, то спрашивайте в минофоруме

Приложение:
const n = 10; m = 20;function SumBelowB(ar: array of integer; bb: Integer): Real;var s: real; k: Integer;begin s:=0; for k:=0 to High(ar) do if ar[k] < bb then s:=s + ar[k]; SumBelowB:=send;var g: array[1..n] of integer; v: array[1..m] of integer; i: Integer; b: Integer;BEGIN for i:=1 to n do g[i]:=Random(100); for i:=1 to m do v[i]:=Random(200); b:= random(300); WriteLn(‘Сумма элементов меньших ‘,b, ‘ в массиве G равна ‘,SumBelowB(g,b):10:0); WriteLn(‘Сумма элементов меньших ‘,b, ‘ в массиве V равна ‘,SumBelowB(v,b):10:0);END.

Здравствуйте, Артем Глушков!
Размерность массивов определяется константами. R1 b R2. Для каждого массива я завёл свой тип. Код программы смотрите в приложении.

Приложение:
{109390}uses crt;const R1=6; R2=7;type vector1=array[1..R1]of integer; vector2=array[1..R2]of integer; matrix1=array[1..R1]of vector1; matrix2=array[1..R2]of vector2;var G:matrix1; V:matrix2; i,j,b,S1,S2:integer;procedure create_array(var X:matrix1;RANG:integer);var i,j:integer;beginend;begin clrscr; randomize; write(‘введите натуральное число b=‘); readln(b); for i:=1to R1 do begin for j:=1to R1 do begin G[i,j]:=1+random(10); if j=R1 then begin write(G[i,j]:3); writeln; end else begin write(G[i,j]:3); end; if G[i,j]<b then S1:=S1+G[i,j]; end; end; writeln; for i:=1to R2 do begin for j:=1to R2 do begin V[i,j]:=1+random(10); if j=R2 then begin write(V[i,j]:3); writeln; end else begin write(V[i,j]:3); end; if V[i,j]<b then S2:=S2+V[i,j]; end; end; writeln(‘в массиве G сумма чисел меньше ‘,b,‘ равна ‘,S1); writeln(‘в массиве V сумма чисел меньше ‘,b,‘ равна ‘,S2); writeln; readln;end.