Я подумал и вот что получилось:
Код:
класс TSegment
type
TSegment = class(TObject)
private
// поля
FFirst: TPage; // приватное поле, вершинный элемент
ACount: integer; // приватное поле, кол-во элементов
public
// конструкторы и деструкторы
constructor Create (ACount: integer); // инициализация
destructor Destroy; override; // уничтожение
// методы
procedure SetCount (ACount: integer); // установка кол-во элем.
procedure Reset // обнуление данных
end;
Поправьте если не правильно