помогите преоброзовать одномерные массивы в двумерные (pascal)

помогите пожалуйста.
вот программа для этой задачи( условие прикреплено).нужно изменить её .
из 4х одномерных массиовов сделать 2 двухмерных и вывести вектор из минимальных значений этих матриц тобишь В=(b1,b2)


program alla8;
uses crt;
type mas=array [1..20] of real;
var
l,m,f,g,i:integer;
R,P,Q,S,B:mas;
minR,minP,minQ,minS:real;

{----procedura formirovaniya i vuvoda massiva na ekran----}
procedure FORM (n:integer;a,c:real; var X:mas);
var
i:integer;
begin
for i:=1 to n do
X:=a*sqr(sin(c*i))*sin(c*i);
for i:=1 to n do
write(X:7:2);
end;

{----procedura naxowdeniya minimyma----}
procedure MIN (n:integer; X:mas; var min:real);
var
i:integer;
begin
min:=1000;
for i:=1 to n do
if X<min then min:=X;
end;


{----osnovnaya proga----}
begin
clrscr;
writeln('VVEDITE RAZMER MASSIVA R:');
readln(l);
writeln('MASSIV R:');
FORM (l,1.5,5.7,R);
MIN(l,R,minR);
writeln;
writeln('Minimalnii element:',minR:5:2);
writeln;
writeln;

writeln('VVEDITE RAZMER MASSIVA P:');
readln(m);
writeln('MASSIV P:');
FORM (m,4.3,2.9,P);
MIN(m,P,minP);
writeln;
writeln('Minimalnii element:',minP:5:2);
writeln;
writeln;

writeln('VVEDITE RAZMER MASSIVA Q:');
readln(f);
writeln('MASSIV Q:');
FORM (f,11.6,8.2,Q);
MIN(f,Q,minQ);
writeln;
writeln('Minimalnii element:',minQ:5:2);
writeln;
writeln;

writeln('VVEDITE RAZMER MASSIVA S:');
readln(g);
writeln('MASSIV S:');
FORM (g,9.2,4.4,S);
MIN(g,S,minS);
writeln;
writeln('Minimalnii element:',minS:5:2);
writeln;
writeln;
B[1]:=minR;
B[2]:=minP;
B[3]:=minQ;
B[4]:=minS;
writeln('MASSIV B:');
for i:=1 to 4 do
write(B:7:2);

readln;
end.


p.s. 1 kurs)
ochen nuzna pomosh!!!