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


Program Mas;
Type
g: array [1..n] of integer;
v: array [1..m] of integer;
Var
n,m,S1,S2:integer;
Begin
writeln('Введите n');
readln(n);
writeln('Введите m');
readln(m);
Randomize;
For I := 1 to n do g[I] := Random(500);
For I := 1 to m do v[I] := Random(500);
Write(‘Введите число b’);
Readln((IMG:style_emoticons/default/cool.gif);
s1:=0;
s2:=0;
For i:=1 to n do
If g[i]<b then s1:=s1+i;
For i:=1 to m do
If v[i]<b then s2:=s2+i;
writeln('Сумма элементов массива g ',s1);
writeln('Сумма элементов массива v ',s2);
readln;
End.

милая Юлия, а можно еще каким то способом решить эту задачу? просто в этой ошибки одни за другой выдает( например, через Procedure?