Нарисовать светофор — Pascal(Паскаль)

uses graph, crt;
var driver, mode: integer;
    c:char;
begin
driver:=detect;
InitGraph (driver, mode,'');
outtextXY(150,35,'r/R-red  y/Y-yellow g/G-green  Esc-exit..');
Setlinestyle(0,0,3);
rectangle (125,125,175,265);
Setlinestyle(0,0,1);
setcolor (4);
circle (150,150,20);
setcolor (14);
circle (150,195,20);
setcolor (2);
circle (150,240,20);
repeat
c:=readkey;
case c of
'r','R':begin
         Setfillstyle(1,0);
         FillEllipse(150,195,20,20);
         setcolor (14);
         circle (150,195,20);
         Setfillstyle(1,0);
         FillEllipse(150,240,20,20);
         setcolor (2);
         circle (150,240,20);
         Setcolor(0);
         Circle(150,150,20);
         Setfillstyle(1,4);
         FillEllipse(150,150,20,20);
       end;
'y','Y':begin
         Setfillstyle(1,0);
         FillEllipse(150,150,20,20);
         setcolor (4);
         circle (150,150,20);
         Setfillstyle(1,0);
         FillEllipse(150,240,20,20);
         setcolor (2);
         circle (150,240,20);
         Setfillstyle(1,14);
         FillEllipse(150,195,20,20);
         setcolor (14);
         circle (150,195,20);
       end;
'g','G':begin
         Setfillstyle(1,0);
         FillEllipse(150,150,20,20);
         setcolor (4);
         circle (150,150,20);
         Setfillstyle(1,0);
         FillEllipse(150,195,20,20);
         setcolor (14);
         circle (150,195,20);
         Setfillstyle(1,2);
         FillEllipse(150,240,20,20);
         setcolor (2);
         circle (150,240,20);
        end;
end;
until c=#27;
end.