Unit, Модуль и ооп Опции

[Dj.Boom]

Написать программу стоящую из двух модулей модуля Unit и главного. Модуль юнит должен содержать описание объекта тпоинт.
В общем программа я написал но без модулей не шарю вмодулях .

Код

Type
  Tpoint = Object
  Public
    Constructor Init(aN:string);
    Procedure Show;
    Function Move: Real; Virtual;
  Private
    Name: String[10];
  End;
Constructor Tpoint.Init;
Begin
  Name:=aN;
  Writeln;
  Writeln(' --------- ','Название',' --------- ');
End;
Procedure Tpoint.Show;
Begin
  Writeln(' ========================');
  Writeln(' New value: ',Move:6:2);
End;
Function Tpoint.Move;
Begin
End;
{----------------------------------------------}
type
  Sector = Object(Tpoint)
  Public
    Constructor Init;
    Procedure Show;
    Function Move: Real; Virtual;
  Private
    R: Real;
    A:Real;
  End;
Constructor Sector.Init;
Begin
  Tpoint.Init('Сектор');
  Write(' Введите радиус: ');
  Readln(R);
  Write(' Введите угол: ');
  Readln(A);

End;
Procedure Sector.Show;
Begin
  Tpoint.Show;
  Writeln(' Радиус: ',R:6:2);
  Write(' Угол: ',A:6:2);
End;
Function Sector.Move;
Begin
  Move:=A+10;
End;
{----------------------------------------------}
Type
  Duga = Object(Sector)
  Public
    Constructor Init;
    Procedure Show;
    Function Move: Real; Virtual;
  Private
    A2: Real;
  End;
Constructor Duga.Init;
Begin
  Tpoint.Init('Дуга');
  Write(' Введите радиус: ');
  Readln(R);
  Write(' Введите угол: ');
  Readln(A);
End;
Procedure Duga.Show;
Begin
  Sector.Show;
  Writeln(' Радиус: ',R:6:2);
  Write(' Угол: ',A:6:2);
End;
Function Duga.Move;
Begin
  Move:=Sector.Move/2+20*R*sin(a);
End;

{--------------Main-------------}
Var
  S: Sector;
  Cl: Duga;
Begin
  Writeln;

  S.Init;
  S.Show;

  Cl.Init;
  Cl.Show;
Readln;
End.

Думаю это не тяжело помогите пожалуйста зарание спасибо.