Динамический список массивов – стеков

[kitcon]

Здравствуйте, помогите пожалуйста создать контейнер (взаимосвязные классы для объектной реализации специализированного контейнера) в Delphi7. Контейнер представляет собою двухуровневую структуру данных, в которой уровни реализуются разными способами, один статически на базе массива (непрерывная реализация), другой динамически с использованием адресных связей (связная реализация).
Кто может помогите, а то даже посоветоваться не с кем на данную тему.

[kitcon]

Предполагаю, необходимо создать такого рода двухуровневую структуру:
класс класс
Динамич. список Массив-стеков
Элемент_1--------->5 4 3 2 1
|
Элемент_2--------->5 4 3 2 1
|
Элемент_3--------->5 4 3 2 1
|
Элемент_4--------->5 4 3 2 1
|
Элемент_5--------->5 4 3 2 1
В уме некое подобие этого предполагаю, а как всё это правильно сделать не знаю, точнее пробую...но не получается.

[kitcon]

Класс динамического списка я написал такой.

unit Module1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
//структура списка--------
type
  pDLi=^DLi; //ссылочный тип
  DLi=record //базовый тип, определ.структуру элемента
  Inf: string; //иноформационная часть элемента
  Nex: pDLi; //указатель на следующий элемент
  Sub: pMSt; //указатель на начало стека
end;
//класс: список
type
  DL=class //класс
  private
    HEAD: pDLi; //голова списка
  public
    constructor CREATE; //создание пустой головы списка
    procedure ADD(item: string); //добавление
    procedure SHOW(st: string); //показать
    procedure DEL(dele: string); //удалить
end;
implementation
//конструктор: создание пустого списка
constructor DL.CREATE;
begin
  HEAD:=nil; //пустой список
end;
//добавить в список
procedure DL.ADD(item: string);
var cur: pDLi; //новый элемент
begin
  New(Cur); //выделим память для нового элемента
  cur^.Inf:=item; //записываем инфо.часть элемента
  cur^.Nex:=HEAD; //указываем на голову списка
  cur^.Sub:=nil; //указываем на пустой стек
  HEAD:=cur; //делаем элемент головой списка
end;
//показать
procedure DL.SHOW(st: string);
var curr: pDLi; //вспомогательная для прохода
begin
  curr:=HEAD; //ставим в начало списка
  if curr=nil then //если список пустой
  begin
    ShowMessage('Список пуст'); //выведем сообщение
    Exit; //выйти из процедуры
  end;
  while Curr<>nil do //проход по списку
  begin
    st:=st+curr^.Inf+#13; //сокраняем в переменнюю
    curr:=curr^.Nex; //переходим к следующему элементу
  end;
end;
//удалить
procedure DL.DEL(dele: string);
var curr: pDLi; //текущий элемент
    prev: pDLi; //предыдущий элемент
begin
  curr:=HEAD; //текущий элемент - в начало
  prev:=nil; //предыдущий отсутствует
  //проходим, пока не найдём нужный удаляемый элемент
  while (curr<>nil)and(curr^.Inf<>dele)do
  begin
    prev:=curr; //устанавливаем предыдущего
    curr:=curr^.Nex; //текущий адресуем на следующего
  end;
  if curr^.Inf=dele then
  begin
    //если предыдущий пуст, значит удаляем голову списка
    if prev=nil then
      HEAD:=curr^.Nex //головой списка делаем следующего
    else //иначе...
      prev^.Nex:=curr.Nex; //предыдущего адресуем на следующего после удаляемого
    Dispose(curr); //освобождаем память удоляемого (текущего)
  end;
end;
end.

Сейчас у меня встала проблема, как создать класс массива-стёков. Не могу класс массива-стёков привязать к классу динамического списка, что бы получилась двухуровневая структура. Прошу подскажите пожалуйста, с курсовиком целая запарка получается.