Чашка кофе с поднимающимся паром: анимацию добавить в Паскале (Graph)

[ВалерОК]

program risunok;
uses crt,graph;
var gd,gm,k,x,y,X0,Y0
:integer;
begin
gd:=detect;
initgraph (gd,gm,'');
setbkcolor(yellow);
setcolor(blue);
line(200,400,300,400);
line(150,250,150,350);
line(350,250,350,350);
line(150,250,350,250);
Arc(200,350,180,270,50);
Arc(300,350,270,360,50);
Circle(380,300,20);
Circle(380,300,35);
{moveto(200,300);}
setfillstyle(1,1);
floodfill(390,320,blue);
setfillstyle(1,1);
floodfill(347,300,blue);
setfillstyle(1,1);
floodfill(349,267,blue);
readln;
X0:=280; Y0:=240; k:=50;
for y:=-240 to 0 do
    begin
	     x:=trunc(k*sin(y/k));
	     PutPixel(x0-x,y0+y,4);
			  end;
			  readln;

X0:=220; Y0:=240; k:=50;
for y:=-240 to 0 do
    begin
	     x:=trunc(k*sin(y/k));
	     PutPixel(x0-x,y0+y,4);
			  end;
			  readln;
		       X0:=180; Y0:=240; k:=50;
for y:=-240 to 0 do
    begin
	     x:=trunc(k*sin(y/k));
	     PutPixel(x0-x,y0+y,4);
			  end;
			  readln;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.