Нарисовать в паскале знак неровная дорога

Очень надеюсь что помог

uses graphABC;begin  setwindowsize(600, 650);  setbrushcolor(rgb(255, 0, 0));  setpencolor(rgb(255, 0, 0));  pie(300, 165, 51, 240, -60);   pie(75, 550, 51, 60, 360);  pie(525, 550, 51, 120, -180);  line(256, 137, 31, 525);  line(300, 165, 75, 550);  line(300, 165, 525, 550);  line(75, 550, 525, 550);  line(345, 140, 570, 525);  line(75, 602, 525, 602);  floodfill(200, 275, rgb(255, 0, 0));  floodfill(400, 300, rgb(255, 0, 0));  floodfill(300, 575, rgb(255, 0, 0));  setpencolor(rgb(0, 0, 0));  setbrushcolor(rgb(0, 0, 0));  line(100, 525, 148, 447);  line(500, 525, 445, 433);  line(100, 525, 500, 525);  pie(200, 475, 60, 10, 170);  pie(400, 475, 60, 10, 170);  setbrushcolor(rgb(255, 255, 255));  setpencolor(rgb(0, 0, 0));  arc(300, 430, 50, 330, 210);  floodfill(300, 500, rgb(0, 0, 0));  {Следующие команды - дубликаты некоторых прошлых.  Они нужны чтобы убрать белые линии  появившиеся при заливке}  setbrushcolor(rgb(0, 0, 0));  pie(200, 475, 60, 0, 180);  pie(400, 475, 60, 0, 180);  setbrushcolor(rgb(255, 0, 0));  setpencolor(rgb(255, 0, 0));  pie(300, 165, 52, 240, -60);   pie(75, 550, 52, 60, 360);  pie(525, 550, 52, 120, -180);end.