[Deman1986]

Сорри торопился

Код:

класс TRam
type
	TRam = class(TObject)
private
// поля
	FRam: Array of  TSegment; // динамический массив 
	FCount: integer; // приватное поле, количество сегментов
public
// конструкторы и деструкторы
	constructor Create (ACount: integer);  // инициализация
	destructor Destroy; override;
// методы
	procedure SetCount (ACount: integer); // установка количества элементов
	procedure Reset; // обнуление данных
       function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string;
end;

Уважаемые форумчане я наверное вас уже замучал. Вот что ответил мне преподаватель.
Из всех классов правильно описан только класс TPage.
Класс TSegment в принципе имеет неправильное описание, т.к. по заданию у вас сегменты реализуются как контейнеры страниц на основе ДИНАМИЧЕСКОЙ, АДРЕСНОЙ реализации, а не на основе массива! Кроме того, не объявлены методы добавления и удаления.
Аналогично, в классе TRam нет методов добавления в список, удаления из списка и поиска сегмента.
вот еще раз всё классы:

Код:

класс TSegment
type
	TSegment = class(TObject)
private
// поля
	FPages: Array of TPage; // массив
	function GetCount: integer;
	function GetPage (Index: integer): TPage; 
	public
// конструкторы и деструкторы
	constructor Create (ACount: integer); virtual; // инициализация
	destructor Destroy; override; // уничтожение
// свойства
	property Count: integer read GetCount;
	property Pages[Index: integer]: TPage read GetPage;
// методы
	procedure ClearAll;
end;

Код:

класс TRam
type
	TRam = class(TObject)
private
// поля
	FRam: Array of  TSegment; // динамический массив 
	FCount: integer; // приватное поле, количество сегментов
public
// конструкторы и деструкторы
	constructor Create (ACount: integer);  // инициализация
	destructor Destroy; override;
// методы
	procedure SetCount (ACount: integer); // установка количества элементов
	procedure Reset; // обнуление данных
        function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string;
end;

Помогите пожалуйста я уже не знаю что хочет преподаватель. Спасибо за помощь