Написать программу — Светофор

Program svetofor;
uses GraphABC,Crt;
Var xc,yc,i,j:integer;
Begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
hidecursor;
setpencolor(clGray);
rectangle(xc-80,yc-180,xc+80,yc+180);
floodfill(xc,yc,clGray);
setpencolor(clLightGray);
circle(xc,yc-100,40);
floodfill(xc,yc-100,clLightGray);
circle(xc,yc,40);
floodfill(xc,yc,clLightGray);
circle(xc,yc+100,40);
floodfill(xc,yc+100,clGray);
i:=0;
j:=1;
while not KeyPressed do //пока не нажата клавиша
 begin
  case i of //выключен
  0: begin
     setpencolor(clLightGray); //красный
     circle(xc,yc-100,40);
     floodfill(xc,yc-100,clLightGray);
     end;
  1: begin
     setpencolor(clGray);  //желтый
     circle(xc,yc,40);
     floodfill(xc,yc,clLightGray);
     end;
  2: begin
     setpencolor(clGray);  //зеленый
     circle(xc,yc+100,40);
     floodfill(xc,yc+100,clLightGray);
     end;
  end;
  case j of   //включен
  0: begin
     setpencolor(clRed); //красный
     circle(xc,yc-100,40);
     floodfill(xc,yc-100,clRed);
     end;
  1: begin
     setpencolor(clYellow);//желтый
     circle(xc,yc,40);
     floodfill(xc,yc,clYellow);
     end;
  2: begin
     setpencolor(clGreen); //зеленый
     circle(xc,yc+100,40);
     floodfill(xc,yc+100,clGreen);
     end;
  end;
if j=0 then  //переключения
 begin
  i:=0;
  j:=1;
 end
else if j=2 then
 begin
  i:=2;
  j:=1;
 end
else if (j=1) and (i=0) then
 begin
  i:=1;
  j:=2;
 end
else if (j=1) and (i=2) then
 begin
  i:=1;
  j:=0;
 end;
 Delay(1000);//1 секунда, долго ждать 10, исправь на 10000 если есть желание
end;
End.

line(x1,y1,x2,y2);