Вычислить y=max{a,b,min{c,d}}, a,b,c,d-числа — Pascal(Паскаль)

var a,b,c,d,y:integer;
function max(a,b,c:integer):integer;
var m:integer;
begin
if a>b then m:=a else m:=b;
if m<c then m:=c;
max:=m;
end;
function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
begin
writeln('введите A,B,C,D');
readln(a,b,c,d);
y:=max(a,b,min(c,d));
writeln('Y=',y);
readln;
end.