procedure initStack is
...
begin

   if selection = 1 then
      declare
         procedure processCharStack (max: in integer) is
         begin
            ...;
         end processCharStack;
      begin
         processCharStack(stackSize);
      end;
   end if;
end initStack;