/*
 * scopes in procedures
 */

module procedure_scoping;

const
	N : integer = 1;
	M : integer = 3;

var
	x : integer := N;
	y : array M of integer;
	
procedure A;
const
	N : integer = 2;

var
	x : array N of integer;
	y : array M of integer;
	z : integer;

begin
	x[N-1] := M;
	z := 4;
end

procedure B;
begin
	x := N;
end

begin
	y[0] := 7;
	A;
	B;
end