Εμβέλεια

Παράδειγμα

program Test;
var
	a : integer;	{a1}

procedure Dummy;
var
	a : integer;	{a2}
begin
	a := 3		{use a2}
end;

begin
	a := 8		{use a1}
end.