Как сделать в паскале движущееся тело по  дуге? В моем случае

Var
procedure kamen(x, y:integer);
тут рисуете собственный камень. заместо координат х и у
begin
я опишу только анимацию камня. с графикой давно не работал-успел пренебрегать
x:=300;
y:=400;
while ylt;gt;700 do
if ylt;200 then begin
x:=x+15;
y:=y+10; 
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y)
else
x:=x+15;
y:=y-10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y);
end;
closegraph;
readln;
end.
все числа необходимо подогнать на практике