составить программу светофор в 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.