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

var x,y,z:integer; {описание переменных и их типа} begin writeln ('введи два числа'); {Вывод на экран сообщения-подсказки} readln (x,y); {считывание переменных} if x<0 then                      {проверка условия.}   if y>x then z:=y             {если условие истинно, то мы ищем большее из х и у. если                                        у больше, то присваиваем z значение у}            else z:=x             {если же больше х, то присваиваем его значение}         else                        {если условие ложно}            if y>x then z:=x     {то мы ищем меньшее из х и у. если                                                                           у больше, то присваиваем z значение х}                     else z:=y;     {если же больше х, то присваиваем значение у} writeln (z);                        {вывод результата на экран} end.                                 {конец программы}