найти большее из 4-ёх чисел pascal ABC NET

function min2(var a,b:integer): integer;
begin
if a>b then
result:=a
else
result:=b;
end;

function min4(var a,b,c,d:integer): integer;
begin 
if min2(a,b)>min2(c,d) then
result:=min2(a,b)
else
result:=min2(c,d);
end;

var a,b,c,d: integer;
begin
readln(a,b,c,d);
writeln(min4(a,b,c,d));
end.