procedure Swap(var a, b: integer);
var
temp: integer;
begin
temp := a;
a := b;
b := temp;
end;

var
x, y: integer;
begin
x := 5;
y := 10;

writeln('Before swapping: x = ', x, ', y = ', y);

Swap(x, y);

writeln('After swapping: x = ', x, ', y = ', y);
end.