Изменить программу так, чтобы работать не с одним массивом, а с двумя

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,k,q:integer;
    c,d,p:real;
begin
randomize;
repeat
writeln;
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
k:=0;
for i:=1 to n do
 begin
  a[i]:=-5+14*random;
  write(a[i]:6:2);
  if i mod 13=0 then writeln;
  if a[i]<0 then k:=k+1;
 end;
writeln;
repeat
writeln('Введите диапазон чисел c<d');
read(c,d);
until c<d;
p:=1;
q:=0;
for i:=1 to n do
if(a[i]>=c)and(a[i]<=d) then
 begin
  q:=1;
  p:=p*a[i];
 end;
writeln('Количество отрицательных=',k);
if q=0 then write('Чисел из диапазона [',c:0:1,';',d:0:1,'] нет')
else  write('Произведение чисел из диапазона [',c:0:1,';',d:0:1,']=',p:0:2);
end.

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure vvod(var a:mas;var n:integer;s:string);
var i:integer;
begin
repeat
write('Ðàçìåð ìàññèâà ',s,' äî ',nmax,' n=');
read(n)
until n in [1..nmax];
for i:=1 to n do
a[i]:=-5+14*random;
clrscr
end;
procedure vyvod(a:mas;n:integer;s:string);
var i:integer;
begin
writeln('Ìàññèâ ',s);
for i:=1 to n do
 begin
  write(a[i]:6:2);
  if i mod 13=0 then writeln
 end;
writeln
end;
function kol_otr(a:mas;n:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
kol_otr:=k
end;
function prz_dpz(a:mas;n:integer;c,d:real;var k:integer):real;
var i:integer;
    p:real;
begin
p:=1;
k:=0;
for i:=1 to n do
if(a[i]>=c)and(a[i]<=d) then
 begin
  k:=1;
  p:=p*a[i]
 end;
prz_dpz:=p
end;
var a1,a2:mas;
    n1,n2,q:integer;
    c,d,p:real;
begin
randomize;
vvod(a1,n1,'A1');
vvod(a2,n2,'A2');
vyvod(a1,n1,'A1');
writeln('Êîëè÷åñòâî îòðèöàòåëüíûõ=',kol_otr(a1,n1));
vyvod(a2,n2,'A2');
writeln('Êîëè÷åñòâî îòðèöàòåëüíûõ=',kol_otr(a2,n2));
repeat
writeln('Ââåäèòå äèàïàçîí ÷èñåë c<d');
read(c,d);
until c<d;
p:=prz_dpz(a1,n1,c,d,q);
writeln('Â ìàññèâå A1:');
if q=0 then writeln('×èñåë èç äèàïàçîíà [',c:0:1,';',d:0:1,'] íåò')
else  writeln('Ïðîèçâåäåíèå ÷èñåë èç äèàïàçîíà [',c:0:1,';',d:0:1,']=',p:0:2);
p:=prz_dpz(a2,n2,c,d,q);
writeln('Â ìàññèâå A2:');
if q=0 then write('×èñåë èç äèàïàçîíà [',c:0:1,';',d:0:1,'] íåò')
else  write('Ïðîèçâåäåíèå ÷èñåë èç äèàïàçîíà [',c:0:1,';',d:0:1,']=',p:0:2);
end.