Входные данные: два числа типа int вывод: а) большее из них в) меньшее из них

Должно подойти, как ответ:
Program asd;
Var x,y:integer;
Begin
read(x);
read(y);
if x>y then
Write('Наибольшее число: ',x,'. Наименьшее число: ',y);
if y>x then
write('Наибольшее число: ',y,'. Наименьшее число: ',x);
End.

Надеюсь