Процедуры и функции, вычислить значение выражения

const n=10;
type mas=array[1..n] of integer;
var a,b:mas;
    i,j:integer;
function v(var x:mas):integer;
var i:integer;
begin
 for i:=1 to n do 
  begin
   x[i]:=-5+random(11);
   write(x[i]:3)
  end;
 writeln;
 v:=1
end;
function max(y:mas):integer;
var i,m:integer;
begin
 m:=y[1];
 for i:=2 to n do
  if y[i]>m then m:=y[i];
 max:=m
end;
begin
  randomize;
  writeln('A:');
  i:=v(a);
  writeln('B:');
  i:=v(b);
  j:=max(a)*max(b);
  for i:=1 to n do a[i]:=a[i]+b[i];
  if max(a)=0 
   then writeln('max(Ai+Bi)=0')
   else writeln('max(Ai)*max(Bi)/max(Ai+Bi) = ',j/max(a):0:2);
  readln 
end.

const n=10;
type mas=array[1..n] of integer;
var a,b:mas;
    i,j,k,m:integer;
procedure v(var x:mas);
var i:integer;
begin
 for i:=1 to n do 
  begin
   x[i]:=-5+random(11);
   write(x[i]:3)
  end;
 writeln 
end;
procedure max(y:mas;var max:integer);
var i:integer;
begin
 max:=y[1];
 for i:=2 to n do
  if y[i]>max then max:=y[i];
end;
begin
  randomize;
  writeln('A:');
  v(a);
  writeln('B:');
  v(b);
  max(a,j);
  max(b,k);
  j:=j*k;
  for i:=1 to n do a[i]:=a[i]+b[i];
  max(a,m);
  if m=0
   then writeln('max(Ai+Bi)=0')
   else writeln('max(Ai)*max(Bi)/max(Ai+Bi) = ',j/m:0:2);
  readln 
end.