Нарисовать рожицу

program p1;
uses graph;
var
grDriver: Integer; {драйвер}
grMode: Integer; {графический режим}
ErrCode: Integer; {результат инициализации графического режима}
begin
grDriver := detect; {автоматическое задание графического режима}
InitGraph(grDriver, grMode,'C:\BP\bgi'); {перевод экрана в графический режим}
ErrCode := GraphResult;
if ErrCode = grOk then {проверка успешности установки графического режима}
begin
setBkColor(14);
setcolor(1); {определяем цвет линии контура круга}
circle(90,90,50); {рисуем круг}
setfillstyle(solidfill,15); {определяем стиль заливки круга}
floodfill(60,30,1); {закрашиваем круг светло-зеленым=10}
setcolor(1); {определяем цвет линии контура круга}
circle(70,80,10); {рисуем круг}
floodfill(70,80,1); {закрашиваем круг}
setcolor(1); {определяем цвет линии контура круга}
circle(110,80,10); {рисуем круг}
floodfill(110,80,1); {закрашиваем круг}
setcolor(12);
Arc(90,90,200,340,30); {дуга - рот}
PutPixel(85,100,4); {nos}
PutPixel(98,100,4);
setcolor(1); {определяем цвет линии контура круга}
circle(70,85,5); {рисуем круг}
setfillstyle(solidfill,6);
floodfill(70,85,6); {закрашиваем круг}
setcolor(1); {определяем цвет линии контура круга}
circle(110,85,5); {рисуем круг}
floodfill(110,86,1); {закрашиваем круг}
end;
readln;
CloseGraph;
end.

setcolor(6); {определяем цвет линии контура круга}//у вас стоит 1
circle(70,85,5); {рисуем круг}
setfillstyle(solidfill,6);