Даны 2 числа x и y меньшее из этих чисел, замените их полученной суммой

Var x,y:integer;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
if x<y then writeln (x+y,' ',y) else 
writeln(x,' ',x+y);
readln;
end.