Pascal abc: вводятся x и y. заменить большее из этих чисел разностью большего и меньшего.

Program test;
var
 x, y : integer;
begin
 Write("Введите x:");
Readln(x);
Write("Введите y:);
Readln(y);
if (x > y) then
begin
 x := x - y;
Writeln(x);
end
else
begin
y := y -x;
Writeln(y);
end;
end.