Сформировать массив из разниц между максимальным положительным и минимальным элементами массивов x,y,z.

type mas=array[1..15] of real;
var x,y,z,w:mas;
     a1,a2,b1,b2,c1,c2,d1,d2,i,maxx,maxy,mazz,minx,miny,minz:integer;
function f1(q1,q2,j:integer):real;
begin
f1:=q1*sqr(j)-q2*(5-j)
end;
function f2(q1,q2,j:integer):real;
begin
f2:=q1*sin(2*j)+q2*exp(j-5)
end;
function f3(q1,q2,j:integer):real;
begin
f3:=q1*(j-4)+q2*sqr(sin(1.5*j))
end;
function f4(q1,q2,j:integer):real;
begin
f4:=q1*ln(0.1*j)+q2*(sqr(cos(j-2.5)*cos(j-2.5)))
end;
procedure p(l:integer; c:mas; var k:integer);
var j:integer;
begin
for j:=1 to l do
if (c[j]>=-10) and (c[j]<=20) then
k:=k+1;
end;
begin
a1:=5;
a2:=7;
b1:=10;
b2:=3;
c1:=4;
c2:=9;
d1:=7;
d2:=8;
writeln('Mass x(8)');
for i:=1 to 8 do
     begin
     x[i]:=f1(a1,a2,i);
     writeln(x[i]:5:3);
     end;
readln;
writeln('Mass y(8)');
for i:=1 to 8 do
     begin
     y[i]:=f2(b1,b2,i);
     writeln(y[i]:5:3);
     end;
readln;
writeln('Mass z(10)');
for i:=1 to 10 do
     begin
     z[i]:=f3(c1,c2,i);
     writeln(z[i]:5:3);
     end;
readln;
writeln('Mass w(15)');
for i:=1 to 15 do
     begin
     w[i]:=f4(d1,d2,i);
     writeln(w[i]:5:3);
     end;
procedure d(n:integer;c:mas;var max:integer);
var i:integer;
begin max:=-maxint;
for i:=1 to n do
if x[i]>max then max:=c[i];
end;
begin
for i:=1 to 8 do
readln(x[i]);
for i:=1 to 8 do
readln (y[i]);
for i:=1 to 10 do
readln (z[i]);
for i:=1 to 15 do
readln (w[i]);
d(8,x,maxx);
d(8,y,maxy);
d(10,z,maxz);
end;
procedure f(z:integer,m:mas;var min:integer);
var i:integer;
begin min:=maxint;
for i:=1 to z do
if m[i]<min then min:=m[i];
end;
begin
for i:=1 to 8 do
readln(x[i]);
for i:=1 to 8 do
readln (y[i]);
for i:=1 to 10 do
readln (z[i]);
for i:=1 to 15 do
readln (w[i]);
f(8,x,minx);
f(8,y,miny);
f(10,z,minz);
 
 
 
end.