Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где
X(1) - сумма элементов массива R, значения которых лежат в интервале  [2;4];
X(2) - то же для массива Q; 
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которых лежит в интервале [2;4], оформить в виде подпрограммы и составить блоксхему
PascalABC необходимо составлять программу "детским языком(начальным)",а подпрограмму через PROCEDURE,вот.
Прошу помощи.Заранее спасибо =) 

const a=10;type mas=array[1..a] of integer;     mas1=array[1..3] of byte;var R, Q, P:mas;    X:mas1;    i:byte;procedure Form(var R, Q, P:mas);var sr, sq, sp:byte;beginsr:=0;sq:=0;sp:=0;for i:=1 to a do begin if (R[i]>=2) and (R[i]<=4) then sr:=sr+R[i]; if (Q[i]>=2) and (R[i]<=4) then sq:=sq+R[i]; if (P[i]>=2) and (R[i]<=4) then sp:=sp+R[i]; end;x[1]:=sr;x[2]:=sq;x[3]:=sp;writeln('Massiv x');for i:=1 to 3 dowrite(x[i]:3);end;beginrandomize;for i:=1 to a do begin R[i]:=random(10); Q[i]:=random(10); P[i]:=random(10); end;writeln('Massiv r');for i:=1 to a dowrite(R[i]:3);writeln;writeln('Massiv Q');for i:=1 to a dowrite(Q[i]:3);writeln;writeln('Massiv P');for i:=1 to a dowrite(P[i]:3);end.