Как осуществить динамическое расширение массива?
Если в Delphi индексация массива с нуля (уже не помню, вдруг с единицы), то доступ к последнему элементу осуществляется не через Eat[Length(Eat)], а через Eat[Length(Eat) - 1].
обычно я делеаю такие штуки так:i := Length(Eat);
SetLength(Eat, i+1);
Eat[i].EatName := Eatname; 
Eat[i].EatCoun t:= EatCount;