Если импортировать SYSTEM, то [untagged] ставится
и программа срабатывает, но возникаем другая проблема

элемент массива с индексом 0 принимает не то значение, которое установили в процедуре, а результат, возвращаемый процедурой через RETURN .

Как правильно поступить?