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

Спасибо

program qq;var x,y,z:real;beginwrite('Введите х >>>');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.Спасибо маме)))