Block Scoping Didn't Solve the Problem

begin
	var
		datastack : array [ 1 .. 100 ] of integer;
		datatop : integer;

	procedure init; ...
	procedure push(val : integer); ...
	function pop : integer; ...
...	
end;