Найти max{mina, b, minc, d}.a, b, c, d – целые числа. free pascal

Найти   max{min(a,b),min(c,d)}.a,b,c,d– целые числа. free pascal
помогите, пожалуйста 🙁

  • var a,b,c,d:integer;
    function max (const x,y:integer):integer;
     begin
       if (x>y) then max:=x else max:=y;
     end;
    function min (const x,y:integer):integer;
     begin
       if (x