var
  a: integer; {a is global}

begin
  a := a + 1;
end;