Pascal.Реализация задачи (Имплементация методов класса) need help ^^

[koudelka]

Всем привет! Ребятки, нужна ваша помощь.
Преподаватель поставил задачу, каждому взять тему и реализовать ее в паскале.
В общем, не смейтесь, моя тема - окраска волос хной.
Поставленные задачи:
1) Декларация классов - сделано.
2) Имплементация методов класса - кодирование - еще не выполнено.
Итак, в кратце, берем 2 ингридиента: 1)порошок хны, 2)воду, мешаем их и получаем смесь, наносим ее на волосы с помощью действий :) и вспомогательных инструментов и получаем в итоге окрашенные волосы :)
Нужна помощь со вторым пунктом, с реализацией задачи(продолжить код).
Код:

Program Okraska;
{$mode objfpc}
uses crt;

type TInstrument = (TImiska,TIlojka,TIras4eska,TIkisto4ka);   //вспомогательные инструменты
type  TInstruments = set of TInstrument;
////////////////////////////////////////////////////////////////////////
{класс ingredient}
type TIngredient = class

Private
FName : string;
FComponent1 : TIngredient ;  
FComponent2 : TIngredient ;
FMaterial : string; 
FColor : string;
  
Public
property Name: string read FName;  //Имя
property Component1: TIngredient read FComponent1 write FComponent1;      //Состав 1 ингрeдиент
property Component2: TIngredient read FComponent2 write FComponent2;      //Состав 2 ингрeдиент
property Material: string read FMaterial;      //Материал
property Color: string read FColor;     //Цвет

end;
////////////////////////////////////////////////////////////////////////
{класс Action}
type TAction = class

Private
FName : string;
FInstrument : TInstruments;

Public
Ingredients: array of TIngredient;   //Массив 2ух Ингрeдиентов
property Name: string read FName;  //Имя
property Instruments : TInstruments read FInstrument;   //Инструменты
function DoAction() : TIngredient; virtual;abstract;{override}

end;
////////////////////////////////////////////////////////////////////////
{класс TIspolnitel}
type TIspolnitel = class

Private
FActions: array of TAction;  //Массив действий
FPlan : string; 
procedure setAction(i:integer; value: TAction); virtual;
function getAction(i:integer) : TAction; virtual;abstract;

Public
property Plan: string read FPlan;  //План
property Actions[i:integer]: TAction read getAction write setAction;  //Действия

end;
////////////////////////////////////////////////////////////////////////
{Наследник Action'a TMakeSmes}
type TMakeSmes  = class(TAction)

public
function DoAction() : TIngredient; override;   //действие - создание смеси
end;
/////////////////////////////////////////////////////////////////////////
{Наследник Action'a Nanesenie}
type TNanesenie  = class(TAction)

public
function DoAction() : TIngredient; override;   //действие - нанесение смеси
end;
////////////////////////////ОПИСАНИЕ ПРОЦЕДУР////////////////////////////
{procedure TAction.setIngredient(n:integer; value: TIngredient);
begin

end;}
////////////////////////////////////////////////////////////////////////
procedure TIspolnitel.setAction(i:integer; value: TAction);
begin
FActions[i] := Value;  
end;
////////////////////////////////////////////////////////////////////////
function TMakeSmes.DoAction() : TIngredient;   //описание действия - создание смеси
var
 M: TIngredient;
begin
M := TIngredient.create;   //описание действия - создание смеси
M.Component1 := Ingredients[1];  
M.Component2 := Ingredients[2];
DoAction := M;
end;
////////////////////////////////////////////////////////////////////////
BEGIN

END.

[koudelka]

Разобралась!