Вычислить Z=(Xmax-Ymin)/2 ,где Xmax- максимальный элемент массива X(50) Ymin-минимальный элемент массива Y(40), Xmax и Ymin вычислять в одной подпрограмме — Pascal(Паскаль)

type
    mas = array [0..100] of real;
    vybor = (min, max);
var
    z: real;
    x,y: mas;
    
procedure form_mas(var a: mas);
var i: longint;
Begin
    Write('Razmernost massiva : ');
    readln(a[0]);
    Writeln('Vvedite ',trunc(a[0]),' elementov massiva cherez probel');
    for i:=1 to trunc(a[0]) do read(a[i]);
End;
 
function f(a: mas; c: vybor): real;
var i: longint; m: real;
begin
    if c=max then
        begin
            m:=a[1];
            for i:=2 to trunc(a[0]) do
                if a[i]>m then m:=a[i];
            f:=m;
        end
        else
            begin
                m:=a[1];
                for i:=2 to trunc(a[0]) do
                    if a[i]<m then m:=a[i];
                f:=m;
            end
end;
 
Begin
    form_mas(x);
    form_mas(y);
    Writeln('z = ',(f(x,max)-f(y,min))/2:6:3);
End.