Сложить минимальные значения двух последовательностей

uses crt;
const nmax=20;
type mas=array [1..nmax] of integer;
var a,b,c: mas;
    n,m,k: byte;
    l: integer;
 
function Min (r: byte; z:mas): integer;
var i: byte;
    m: integer;
begin
m:=z[1];
for i:=1 to r do
   if z[i]<m then m:=z[i];
Min:=m;
end;
 
function Razm(c: char): byte;
var r: byte;
begin
repeat
write('Размер массива ',c,', не более ',nmax,': ');
readln(r);
until r in [1..nmax];
Razm:=r;
end;
 
procedure GenPrint (c: char;r: byte; var z:mas);
var i: byte;
begin
writeln('',c);
for i:=1 to r do
    begin
    z[i]:=random(21);
    write(z[i]:4);
    end;
writeln;
end;
 
begin
n:=Razm('A'); m:=Razm('B'); k:=Razm('C');
GenPrint ('A',n,a); GenPrint ('B',m,b); GenPrint ('C',k,c);
writeln('Минимальное значение массива А ',Min (n,a));
writeln('Минимальное значение массива B ',Min (m,b));
writeln('Минимальное значение массива C ',Min (k,c));
if Min (n,a)>10 then l:=Min (m,b)+Min (k,c)
   else l:=1+sqr(Min (k,c));
writeln('L=',l);
end.