подпрограммы

[Гузелька73]

Помогите пожалуйста ИЗМЕНИТЬ ПРОГРАММУ так, чтобы работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам. 4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.

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.

[Stilet]

В качестве подсказки:

uses crt;
const nmax=100;
type TArray=array[1..nmax] of real;
var a1,a2:TArray;

procedure inn(var a:Tarray);
var n,i:integer;
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;
end;

function pro(a:Tarray);
var n,i:integer;p:real;
begin
p:=1;
for i:=1 to n do
begin
 p:=p*a[i];
end;
pro:=p;
end;

n,i,k,q:integer;
c,d,p:real;
begin
inn(a1);inn(a2);
write('Произведение чисел из диапазона [',c:0:1,';',d:0:1,']=',pro(a1):0:2);
write('Произведение чисел из диапазона [',c:0:1,';',d:0:1,']=',pro(a2):0:2);
end.