var
 a: integer; {a es una variable global}
 
begin
 a := a + 1;
end;