procedure foo(var bar: Integer);