Дано произвольное значение b и два произвольных массива G, V размера n, m соответственно. Найти сумму элементов массива G, меньших заданного b, а также сумму элементов массива V, меньших заданного b. Исходные данные взять самостоятельно.

ну вот они, составил коды и дальше не знаю как собрать все в одно
Код:
g: array [1..n] of integer;

Код:
Randomize;
For I := 1 to n do g[I] := Random(500);


Код:
Write(‘Введите число b’);
Readln((IMG:style_emoticons/default/cool.gif);
S:=0;
For i:=1 to n do
If b[i]<b then s:=s+1;