delphi Перераспределить значения переменных X и Y так, Чтобы в X оказалось больше из этих значений, а в Y - меньше.

[fluush]

Перераспределить значения переменных X и Y так, Чтобы в X оказалось больше из этих значений, а в Y - меньше.
Нужно написать программу на Delphi помогите пожалуйста

[Serge_Bliznykov]

через доп.переменную:

if X<Y then begin tmp := Y; Y:=X; X;=tmp end;