Получить на экране рисунок лампочки со спиралью

[Алексей_1]

Получить на экране рисунок лампочки со спиралью. Обеспечить возможность "зажигать" и "гасить" нарисованную лампочку: включение и выключение лампочки должно выполняться с клавиатуры, спираль зажженной и погашенной лампочки окрашивается в разные цвета.

Помогите сделать задачу

[Sparkman]

program lamp;
uses crt,graph;
var grDriver: Integer;
    grMode: Integer;
    ErrCode: Integer;
    c:char;
    b:boolean;
begin
     grDriver := Detect;
     initgraph(grDriver,grMode,'');
     ErrCode:=GraphResult;
     if ErrCode=grOk then
     begin
          setcolor(15);
          circle(GetMaxX div 2,GetMaxY div 2, 50);
          line (GetMaxX div 2 - 15,GetMaxY div 2,GetMaxX div 2 + 15,GetMaxY div 2);
          b:=false;
          repeat
                c:=readkey;
                if b then
                begin
                     b:=false;
                     setcolor(15);
                     line (GetMaxX div 2 - 15,GetMaxY div 2,GetMaxX div 2 + 15,GetMaxY div 2);
                     setfillstyle(1,0);
                     floodfill(GetMaxX div 2,GetMaxY div 2+2,15);
                end else
                begin
                     b:=true;
                     setfillstyle(1,14);
                     floodfill(GetMaxX div 2,GetMaxY div 2+2,15);
                     setcolor(4);
                     line (GetMaxX div 2 - 15,GetMaxY div 2,GetMaxX div 2 + 15,GetMaxY div 2);
                end;
          until c=#27;
          CloseGraph;
     end else writeln('Graphics error: ',GraphErrorMsg(ErrCode));
end.

[Алексей_1]

Саму программу составить((

[Vanta11a]

Ничего не слипнется? Код дали, в нем все что надо - есть. Творите! Алгоритм не сложен.