Напишите пожалуйста программу для Ежика из смешариков, нарисовать в Pascal ABC. Размер поля 800*600. СРОЧНО!!!!!!

Uses GraphABC;BeginSetWindowSize(800,600);SetWindowTitle ('Ёжик');SetPenWidth(15);{рисуем ноги}SetPenColor(clMaroon);MoveTo(320,520);LineTo(320,600);LineTo(460,600);LineTo(460,520);LineTo(420,520);LineTo(390,580);LineTo(360,520);LineTo(320,520);MoveTo(390,580);LineTo(390,600);FloodFill(340,540,clFuchsia);FloodFill(440,540,clFuchsia);{рисуем туловище}Circle(390,315,200);FloodFill(390,315,clFuchsia);{рисуем очки}SetPenColor(clPurple);Circle(320,300,70);Circle(460,300,70);MoveTo(260,260);LineTo(220,240);MoveTo(520,260);LineTo(560,240);{рисуем глаза}Circle(340,310,30);FloodFill(340,310,clBlack);Circle(440,310,30);FloodFill(440,310,clBlack);{рисуем нос и рот}SetPenColor(clMaroon);MoveTo(360,370);LineTo(420,370);MoveTo(390,370);LineTo(390,400);SetPenColor(clRed);MoveTo(360,440);LineTo(420,440);LineTo(390,460);LineTo(360,440);{рисуем челку}SetPenColor(clMaroon);MoveTo(380,120);LineTo(390,180);LineTo(400,120);MoveTo(380,140);LineTo(340,190);MoveTo(400,140);LineTo(440,190);{рисуем руки}MoveTo(200,400);LineTo(180,440);LineTo(180,500);LineTo(200,520);LineTo(240,520);LineTo(240,480);LineTo(220,480);LineTo(220,460);LineTo(240,450);FloodFill(200,440,clFuchsia);MoveTo(580,400);LineTo(600,440);LineTo(600,500);LineTo(580,520);LineTo(540,520);LineTo(540,480);LineTo(560,480);LineTo(560,460);LineTo(540,450);FloodFill(580,440,clFuchsia);{рисуем иголки}SetPenColor(clPurple);MoveTo(180,330);LineTo(100,240);LineTo(140,220);LineTo(180,220);LineTo(180,120);LineTo(200,100);LineTo(220,120);LineTo(280,120);LineTo(390,20);LineTo(500,120);LineTo(560,120);LineTo(580,100);LineTo(600,120);LineTo(600,220);LineTo(640,220);LineTo(680,240);LineTo(600,330);FloodFill(380,80,clBlue);End.