procedure increment(var x: integer; by: integer); begin x := x + by; end; … var n: integer = 4; begin increment(n, 2); // now n is 6