Код:
		'@':	begin {L17200}
				WRITE('Призрак.');
				VAR22:=RUKSEEK('.','.');
				if VAR22 < 7 then
					VAR30:=VAR30+1;
				RUKSAK[VAR22]:='@';
			end;
Предположим, рюкзак полон и тут мы встречаем призрака... Пипец рюкзаку...

- - - Добавлено - - -

Цитата Сообщение от Alex_K Посмотреть сообщение
А тот код выше обрабатывает встречу со зверем на своей клетке, когды вы убиваете его, просто на него встав. Соответственно символ зверя стирается из массива разбуженных зверей.
И? Внешний цикл будет рад смерти звери и запорченной переменной.