Построить рисунок, изображающий телевизор - Free Pascal

uses graph;
var
  gm,gd:integer;
begin
  gd:=VGA;
  gm:=VGAHi;
  InitGraph(gd,gm,'c:\bp\bgi');
  setFillStyle(solidfill,white);
  circle(150,110,20);
  setFillStyle(solidfill,brown);
  rectangle(50,100,260,250);
  setFillStyle(solidfill,lightgray);
//  roundRect(60,110,240,240,100,50);
  rectangle(60,110,240,240); 
//  Setsetpenwidth(3);
  line(150,100,100,50);
  line(150,100,200,50);
//  setpenwidth(1);
  circle(250,180,5);
  circle(250,190,5);
  circle(250,200,5);
  circle(245,235,10);
  readln;
  closegraph;
end.