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

Изменил... теперь нормально все.   uses graphabc,crt;  var i:integer; h:real; begin randomize;  rectangle(280,130,320,320); rectangle(250,10,350,260); circle(300,55,35); circle(300,135,35);  circle(300,215,35);  for i:=1 to 1000 do  begin   floodfill(300,55,clred);   delay(3000);   floodfill(300,55,clwhite);   delay(1000);   floodfill(300,135,clyellow);   delay(3000);   floodfill(300,135,clwhite);   delay(1000);   floodfill(300,215,clgreen);   delay(1000);   floodfill(300,215,clwhite);    delay(1000);  end; end.