Если уж так нужно использовать оператор if, откройте юнит Math и перепишите оттуда код.
P.S. А вашего препода нужно срочно уволить, чтобы дурью не маялся.
Код:
function min(x, y, z : Single) : Single;
begin
if x + y < y + z then
min := x + y
else
min := y + z;
end;
а этот код представляет пока собою бред, посмотрите, что вы спрашивали в самом начале и что наваяли здесь.