[disapoint]

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

Код:

 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;

Админ: Пользуемся тегами для оформления кода!