program IncDemo;
var
  Foo: Integer;
  Bar: array [1 .. 5] of Integer;
  Baz: ^Integer;
begin
  Foo := 4;
  Inc (Foo, 5);      { yields 9 }
  {$X+}              { Turn on extended systax }
  Baz := @Bar [1];  { Baz points to y [1] }
  Inc (Baz, 2);      { Baz points to y [3] }
end.
