Решение задач в Paskal

[Irusik]

Помогите разобраться в чем ошибки:
1.Программирование ветвлящихся алгоритмов. Вычислить результат, используя условный оператор. Исходные данные ввсести с клавиатуры.
z= (min(0,x)-min(0,y))/(sqr(max(y,x)).

program ein;
uses crt;
var z,x,y: real;
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
function min(a,b:real): real;
begin
if a<b then min:=a else min:=b;
end;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
z:=((min(0,x))-(min(0,y)))/(sqr(max(y,x)));
writeln ('z=', z:1:1);
readln;
end.

У меня получается все время в ответе 0

[Sweta]

Наверное правильно получается, если x и y положительные.