Задачник по ООП Опции

[Bokul]

Если ли такой для Паскаля? Или просто задачи...

P.S. ссылку на форум Задачи не давать...

[Bokul]

Есть вопросы по поводу объекта Supervisor.
Я уже сделал некоторую работу, создал несколько объектов:

1 TGObject -// движущейся графический объект, умеет: 
    constructor init(x,y:integer; speed,color:byte; angle,time:real);// - инитиализировать себя 
    procedure   moveto;// - двигаться 
    procedure   calculation; virtual; //abstract; //- высчитывать свое новое положение, перекрывается в наследниках
    procedure   ChangeDirection(speed:byte; angle:real); //- вызывается с Supervisor, только в случае столкновения. Меняем скорость и угол полета.
    procedure   draw(x,y:integer); virtual;// abstract; - перекрывается в наследниках
    destructor  done; virtual;// - стирает себя с экрана
2 TBall - наследник TGObject, теперь это движущейся шарик
      constructor init(x,y:integer; speed,color:byte; angle,time:real; r:byte);// - добавили новое поле r -радиус, инициализацию остальных полей наследуем
      procedure   calculation; virtual;// перекрываем 
      procedure   draw(x,y:integer); virtual;// тоже перекрываем
      destructor  done; virtual; // перекрываем, наслудуем

3 TItem - элемент списка указателей на  объекты TBall 
     constructor init(pos_x,pos_y:integer; v,col:byte;angle,time:real; r:byte; p:TPItem);//  инициализирует свою информационную часть
     destructor  done;// удаляем информационную часть

4 TList - содержит список указателей на объеты типа TBall 
    constructor init;//-инициализирует список
    function    AddItem(pos_x,pos_y:integer; v,col:byte; angle,time:real; r:byte):boolean;//добавляем новый элемент
    function    DeleteItem(pdel:TPitem):boolean;//удаляем элемент
    destructor  done;//удаляем весь список

Так вот TSuperVisor должен быть наследником TList или содержать его в себе?
Правильна ли общая структура?