присвойте 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.

Спасибо маме)))

Спасибо