Как написать программу для движения окружности(вниз и вправо) в паскале ? помогите пожалуйста

dx:=-1;dy:=3;repeatsetcolor(12);circle(x,y,r);delay(10);setcolor(0);circle(x,y,r);x:=x+dx;y:=y+dy;if x<=x0-d+r+2 then dx:=1else if y>=y0+d-r-2 then dy:=-1else if x>=x0+d-r-2 then dx:=-1else if y<=y0-d+r+2 then dy:=1;until keypressed;end.