Создать собственную функцию

Type 
     a=array[1..10] of integer;
var
     mas:a;
     i:integer;
 function minl(arr: a; s,r:integer):integer;
 var
     i:integer;
 begin
 s:=arr[1];
 for i:=2 to 10 do
  begin
   if (s>arr[i]) then
   s:=arr[i];
   r:=s;
  end;
 end;
begin
 writeln('Введите элементы массива');
 for i:=1 to 10 do
  readln(mas[i]);
end.

Type 
     mas=array[1..10] of integer;
var
     a:mas;
     i,l,k,u,p:integer;
     b:array[1..10] of integer;
     c:array[1..10] of integer;
     
 function min(arr: mas; s,r:integer):integer;
 var
     i:integer;
 begin
 s:=arr[1];
 for i:=2 to 10 do
  begin
   if (s>arr[i]) then
   s:=arr[i];
   r:=s;
  end;
 end;
 
 function max(arr: mas; s,r:integer):integer;
 var
     i:integer;
 begin
 s:=arr[1];
 for i:=2 to 10 do
  begin
   if (s<arr[i]) then
   s:=arr[i];
   r:=s;
  end;
 end;
 
begin
 writeln('Введите элементы массивов');
 for i:=1 to 10 do
  begin
   readln(a[i]);
   readln(b[i]);
   readln(c[i]);
  end;
 k:=min(a);
 u:=min(b);
 p:=max(c);
 l:=((k+u)/(1+sqr(p)));
 writeln(l);
end.

const n=10;
Type mas=array[1..n] of integer;
function min(a:mas):integer;
var i,s:integer;
begin
s:=a[1];
for i:=2 to n do
if s>a[i] then s:=a[i];
min:=s
end;
function max(a:mas):integer;
var i,s:integer;
begin
s:=a[1];
for i:=2 to n do
if s<a[i] then s:=a[i];
max:=s
end;
var a,b,c:mas;
    i:integer;
    L:real;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
writeln('Массив B');
for i:=1 to n do
 begin
  b[i]:=random(100);
  write(b[i]:3);
 end;
writeln;
writeln('Массив C');
for i:=1 to n do
 begin
  c[i]:=random(100);
  write(c[i]:3);
 end;
writeln;
L:=(min(b)+min(c))/(1+sqr(max(a)));
write('L=',L:0:3)
end.