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

Изменил... теперь нормально все.   uses graphabc,crt; var i:integer; h:real;beginrandomize; 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.