Безотлагательно!!! Даны разные действительные числа x, y, z, d. Отыскать max

Delphi 7 очень похож на Pascal. Потому я приведу код на PascalABC, который можно с легкостью запустить в среде разработки Делфи 7.
Суть очень ординарна, сделаем функции max и min, а позже выполним требуемые деяния.
var x,y,z,d:real;
function min(a:real; b:real) : real; //нахождение минимума из 2-х чисел
begin
if(a gt; b) then min:=b
else min:=a;
end;
function max(a:real; b:real; c:real) : real; //нахождение максимума из 2-х чисел
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.