const n=7;
type ar=array[1..n] of integer;
procedure p1(var x:ar);
var i:integer;
begin
for i:=1 to n do x[i]:=random(21)-10; 
end;

procedure p2(h:string[7];var x:ar);
var i:integer;
begin
writeln('---',h,'---');
for i:=1 to n do write(x[i],' ');     
writeln; 
end;

procedure p3(var x,y,z:ar);
var i:integer;
begin
for i:=1 to n do z[i]:=abs(x[i]-y[i]);     
end;

procedure p4(var x,y,z:ar);
var i:integer;
begin
for i:=1 to n do z[i]:=x[i]+y[i];     
end;

function max(x:ar):integer;
var i,m:integer;
begin
m:=x[1];
for i:=2 to n do
 if x[i]>m then m:=x[i];
max:=m;
end;

var a,b,c : ar; 
  m,m1,m2,m3,m4 : integer;
begin
Randomize; 
p1(a); p2('a',a);
m1:=max(a); writeln('m1=',m1);
p1(b); p2('b',b);
m2:=max(b); writeln('m2=',m2);
p3(a,b,c); p2('¦Ai-Bi¦',c);
m3:=max(c); writeln('m3=',m3);
p4(a,b,c); p2('Ai+Bi',c);
m4:=max(c); writeln('m4=',m4);
if m1>m2 then m:=m1 else m:=m2;
if m3>m then m:=m3;
if m4>m then m:=m4;
if 1>m then m:=1;
writeln('max=',m);
end.

Ïðèìåð ðàáîòû ïðîãðàììû:
---a---
-8 2 -10 6 -9 -4 3 
m1=6
---b---
-6 0 -3 3 -10 -6 1 
m2=3
---¦Ai-Bi¦---
2 2 7 3 1 2 2 
m3=7
---Ai+Bi---
-14 2 -13 9 -19 -10 4 
m4=9
max=9