Найти минимальные элементы массивов, используя процедуру или функцию

program ex;
uses crt;
const N1= 100;
type vector=array[1..N1] of integer;
var a,b:vector;
    n,m:integer;    
 
procedure form(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('введите очередной элемент: ');
readln(a[i]);
end;
end;
 
procedure print(a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
write(a[i],' ');
writeln();
end;
 
function min(a:vector;n:integer):integer;
var i,minimum:integer;
begin
minimum:=a[1];
for i:=1 to n do 
if (a[i]<minimum) then minimum:=a[i];
min:=minimum;
end;
 
begin
write('количество элементов в массиве A: ');
readln(n);form(a,n);
write('количество элементов в массиве B: ');
readln(m);form(b,m);
writeln();
write('массив A: ');print(a,n);
write('массив B: ');print(b,m);
writeln('минимальный элемент в массиве A = ',min(a,n));
writeln('минимальный элемент в массиве B = ',min(b,m));
writeln('сумма минимальных элементов в массиве = ',min(a,n)+min(b,m));
end.