Нужно в паскале сделать так, чтобы кружок отталкивался от стенок экрана или границ с постоянной скоростью

uses graph,crt;
var x,y,x0,y0,d,r,dx,dy:integer;
begin
x:=0;
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
outtextXY(x0-80,20,'Vyhod - press any key...');
d:=200;
r:=10;
rectangle(x0-d,y0-d,x0+d,y0+d);
x:=x0;
y:=y0-d+r+1;
dx:=-1;
dy:=1;
repeat
setcolor(12);
circle(x,y,r);
setfillstyle(1,12);
fillellipse(x,y,r,r);
delay(10);
setcolor(0);
circle(x,y,r);
setfillstyle(1,0);
fillellipse(x,y,r,r);
x:=x+dx;
y:=y+dy;
if x=x0-d+r+2 then dx:=1
else if y=y0+d-r-2 then dy:=-1
else if x=x0+d-r-2 then dx:=-1
else if y=y0-d+r+2 then dy:=1;
until keypressed;
end.