MODULE Test29;

PROCEDURE A;
END A;

PROCEDURE B;
  PROCEDURE A;
  END A;
END B;

END Test29.

Объявление локальной процедуры не должно конфликтовать с глобальным.