Вычислить z=(Xm1+Xm2)/2 , где Xm1 и Xm2 — наименьшие элементы массивов X1(70),X2(80) — Pascal(Паскаль)

Program MInarr;
  Uses Crt;
  Const
    n = 5; m = 8;
  Type
    arr = array [1..100] of integer;
  Var
    x1,x2 : arr;
    z : real;
 
  Procedure InPut(var a : arr;
                      n : byte);
    Var i : byte;
    Begin
      For i := 1  to n do
        read(a[i]);
    End;
 
  Function Min(a : arr;
               n : byte) : integer;
    Var i,j  : byte;
    Begin
      j := 1;
      For i := 2 to n do
        If a[j] > a[i] Then j := i;
      Min := a[j];
    End;
 
BEGIN
  ClrScr;
    Writeln('Введите элементы 1-го массива(',n,'):'); InPut(x1,n);
    Writeln('Введите элементы 2-го массива(',m,'):'); InPut(x2,m);
    z := (Min(x1,n) + Min(x2,m))/2;
    Writeln('z = ',z : 0:3);
  Readkey;
END.