TurboPascal: объекты и классы, прямоугольник с рамочкой

[ulala]

Здравствуйте, уважаемые специалисты.
Исходник:

program primer_2_3;
 uses crt;
  type
   Stroka=object
   Xt, Yt: integer;
   Text: string;
    procedure Init(aXt, aYt:integer; aText: string);
    procedure Print;
  end;
    procedure Stroka.Init;
     begin
      Xt:=aXt;
      Yt:=aYt;
      Text:=aText;
     end;
    procedure Stroka.Print;
     begin
      GotoXY(Xt,Yt);
      writeln(Text);
     end;

  type
   Stroka1 = object(Stroka)
   N,Cvet: integer;
    procedure Init(aXt, aYt,aCvet: integer; aText: String; aN:integer);
    procedure Print;
  end;

  procedure Stroka1.Init;
   begin
    Stroka.Init(aXt, aYt, aText);
    N:=aN;
    Cvet:=aCvet;
   end;

  procedure Stroka1.Print;
   var
    i:integer;
   begin
    for i:=1 to N do
   begin
    TextColor(Cvet);
     Stroka.Print;
     Yt:=Yt+1;
   end;
  end;
 type
  StrInWin=object
  X1,Y1,X2,Y2,Color: integer;
  Str: Stroka1;
   procedure Init(aX1,aY1,aX2,aY2,aColor:integer; aStr: Stroka1);
   procedure MakeWin;
 end;
   procedure StrInWin.Init;
     begin
       X1:=aX1;
       Y1:=aY1;
       X2:=aX2;
       Y2:=aY2;
       Color:=aColor;
       Str:=aStr;
     end;
   procedure StrInWin.MakeWin;
     begin
      Window(X1,Y1,X2,Y2);
      TextBackGround(Color);
      clrScr;
     end;

     var
      ObWin: StrInWin;
      ObNewStr: Stroka1;
     Begin
      ObNewStr.Init(4,5,6,'message',5);
      ObNewStr.Print;
      ObWin.Init(8,4,32,20,4,ObNewStr);
      ObWin.MakeWin;
      ObWin.Str.Print;
      readln;
     End.

Он выводит несколько цветных строк в цветном окне. Требуется: сделать этому прямоугольнику цветную рамочку. Причём как сказал преподаватель не через Graph, а нарисовав вокруг этого цветного окна ещё одно цветное окно таким образом чтобы получилась рамочка. Подскажите как выполнить прихоть преподавателя. Заранее благодарна.