даны действительные числа x,y. Получить max(x,y) , min(x,y), решение на delphi

var x,y,z,d:real;

function min(a:real; b:real) : real;

begin

if(a gt; b) then min:=b

else min:=a;

end;

function max(a:real; b:real; c:real) : real;

begin

if((a gt;= b) and (a gt;= c)) then max:=a;

if((b gt;= a) and (b gt;= c)) then max:=b;

if((c gt;= a) and (c gt;= b)) then max:=c;

end;

begin

read(x,y,z,d);

write(max (min (x, y), min (x, z), min (z, d))) ;

end.