Присвойте z значение большего из чисел x и y в том случае,если x< 0 и меньшего если x> =0.составить программу в паскале

Program qq;
var x,y,z:real;
begin
write('Введите х >>>');
readln(x);
write('Введите y >>>');
readln(y);
if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
write(z);
end.

маме)))