Инкапсуляция

[keksik]

Помогите решить... пожалуйста...

• Описать класс по следующим протоколом.
• Сохранить описания каждого класса в отдельном модуле.
• Написать программу для демонстрации всех методов описанных классов в консольном режиме.

type
/ / ----------------------------------------- Вспомогательные описания ----- ----------------------------
/ / Тип комплексного числа
TNumber = record
Re, Im: Real; / / соответственно действительная и мнимая части комплексного числа
end;
/ / --------------------------------- Описание класса комплексных чисел TComplex ---------- -----------------------
TComplex = class
/ / ------------------------- Атрибуты ---------------------- -------------------------------------------------- ----
Number: TNumber; / / значение комплексного числа
/ / ------------------------- Методы - конструкторы -------------------- ---------------------------------------
constructor Create; overload; / / создается число (0; 0)
constructor Create (R, I: Real) overload; / / создается число (R; I)
constructor CreateRead; / / значение действительной и мнимой части комплексного числа
/ / Вводимые с клавиатуры
/ / ------------------------- Методы ---------------------- -------------------------------------------------- ----
procedure SetValue (A: TNumber) / / задать комплексное число
procedure Print; / / вывести на экран комплексное число в виде (Re; Im)
procedure Copy (A: TNumber) / / число принимает значение другого числа
procedure Add (A: TNumber) / / в число добавляется другое комплексное число
procedure Decrease (A: TNumber) / / от числа вычитается другое комплексное число
procedure Multiply (A: TNumber) / / число умножается на другое комплексное число
procedure Divide (A: TNumber) / / число делится на другое комплексное число
function GetReal: Real; / / выделить действительную часть комплексного числа
function GetImaginary: Real; / / выделить мнимую часть комплексного числа
function GetModule: Real; / / найти модуль комплексного числа
function GetArgument: Real; / / найти аргумент комплексного числа
End;

[Stilet]

А что именно не получается?