> -- Ярослав Романченко писал(а):
> Параметр процедуры как открытый массив лучше всего сделать:

Тогда получается другая ошибка
МОДУЛЬ ПримерПтица;
ПОДКЛЮЧИТЬ  ПримерЖивность;
ТИП

Птица* = УКАЗАТЕЛЬ ДО ЗАПИСЬ (ПримерЖивность.Живность)
КОНЕЦ;
(*	ПРОЦЕДУРА новая_птица*( наименование: ПримерЖивность.Описание): Птица; *)
ПРОЦЕДУРА новая_птица*( наименование: МАССИВ ИЗ  ЛИТЕР): Птица;
ПЕРЕМЕННЫЕ
эта_птица: Птица;
НАЧАЛО
НОВАЯ (эта_птица);
(*НОВАЯ (эта_птица.описание, 20);*)
эта_птица.описание^:= "летает";
эта_птица.имя := наименование;несовместимое присваивание
ВЕРНУТЬ эта_птица;
КОНЕЦ новая_птица;