Уменя не закрашиваются Окружности.

Составьте программу, которая рисует сначала две окружности белого цвета на чёрном фоне справа и слева, а при каждом нажатии на клавишу "ENTER" появлялись бы ещё две окружности справа и слева, но уже ближе к центру до тех пор, пока они не совпадут. После чего центральная окружность должна будет окраситься в зелёный цвет.

Может что то неправильно записал
помогите пожалуйста.

program Load;
uses graph,crt;
var
gd,gm:integer;
err:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
err:=graphResult;
if err<>grOk
then begin writeln('Oshibka');
readln;
halt(1);
end;

begin
readln;
setfillstyle(1,black);
floodfill(80,240,white);
circle(80,240,60);
floodfill(560,240,white);
circle(560,240,60);
readln;
end;
begin

clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(100,240,60);
floodfill(560,240,white);
circle(540,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(120,240,60);
floodfill(560,240,white);
circle(520,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(140,240,60);
floodfill(560,240,white);
circle(500,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(160,240,60);
floodfill(560,240,white);
circle(480,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(180,240,60);
floodfill(560,240,white);
circle(460,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(200,240,60);
floodfill(560,240,white);
circle(440,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(220,240,60);
floodfill(560,240,white);
circle(420,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(240,240,60);
floodfill(560,240,white);
circle(400,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(260,240,60);
floodfill(560,240,white);
circle(380,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(280,240,60);
floodfill(560,240,white);
circle(360,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(300,240,60);
floodfill(560,240,white);
circle(340,240,60);
readln;
end;

begin
clrscr;
setfillstyle(1,black);
floodfill(75,240,14);
circle(320,240,60);
readln;

closegraph;
end;
end.

Большо спасибо. Ваш совет очень мне помог. С новым годом вас.