Переделать программу с функций на процедуры

Type 
myArray = array[1..10] of integer;
var
a: myarray;
b: myarray;
i:integer;
result:real;
Function sMax(a,b:myArray):integer;
Var
i:integer;
Begin
Result:=a[1]+b[1];
for i:=2 to 10 do
if a[i]+b[i]>Result then Result:=a[i]+b[i];
end;
Function smin(a,b:myArray):integer;
Var
i:integer;
Begin
Result:=a[1]+b[1];
for i:=2 to 10 do
if a[i]+b[i]<Result then Result:=a[i]+b[i];
end;
Function Max(b:myArray):integer;
Var
i:integer;
Begin
Result:=b[1];
for i:=2 to 10 do
if b[i]>Result then Result:=b[i];
end;
Function Min(a:myArray):integer;
Var
i:integer;
Begin
Result:=a[1];
for i:=2 to 10 do
if a[i]<Result then Result:=a[i];
end;
begin
for i:=2 to 10 do
     a[i] := random(10);
   b[i] := random(10);
    for i:=2 to 10 do
        begin
            result:=(smax(a,b)+smin(a,b))/(min(a)+max(b));
            end;
            writeln('result=',result:5:3);
end.

const n=10;
type myArray = array[1..n] of integer;
procedure massiv(var a:myArray;c:char);
var i:integer;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i] := random(n);
  write(a[i]:3);
 end;
writeln;
end;
 
procedure smax(a,b:myArray;var mx:integer);
var i:integer;
begin
mx:=a[1]+b[1];
for i:=2 to n do
if a[i]+b[i]>mx then mx:=a[i]+b[i];
end;
procedure smin(a,b:myArray;var mn:integer);
var i:integer;
Begin
mn:=a[1]+b[1];
for i:=2 to n do
if a[i]+b[i]<mn then mn:=a[i]+b[i];
end;
procedure max(a:myArray;var mx:integer);
var i:integer;
begin
mx:=a[1];
for i:=2 to n do
if a[i]>mx then mx:=a[i];
end;
procedure min(a:myArray;var mn:integer);
var i:integer;
begin
mn:=a[1];
for i:=2 to n do
if a[i]<mn then mn:=a[i];
end;
var a: myarray;
    b: myarray;
    mx1,mn1,mx2,mn2:integer;
    result:real;
begin
randomize;
massiv(a,'A');
min(a,mn1);
writeln('Минимальный=',mn1);
massiv(b,'B');
max(b,mx1);
writeln('Максимальный=',mx1);
smax(a,b,mx2);
writeln('Максимальный из сумм=',mx2);
smin(a,b,mn2);
writeln('Минимальный из сумм=',mn2);
result:=(mx2+mn2)/(mn1+mx1);
writeln('result=',result:0:3);
end.

result:=(smax(a,b)+smin(a,b))/(min(a)+max(b));

massiv(a,'A');
min(a,mn1);
writeln('Минимальный=',mn1);
massiv(b,'B');
max(b,mx1);
writeln('Максимальный=',mx1);
smax(a,b,mx2);
writeln('Максимальный из сумм=',mx2);
smin(a,b,mn2);
writeln('Минимальный из сумм=',mn2);
result:=(mx2+mn2)/(mn1+mx1);