Движение объекта вдоль границ графического окна

uses graphABC;
const w=400;//размеры окна
      r=20;//радиус круга
var   d:integer;//шаг смещения шара
      z:integer;//задержка
procedure krug(x,y:integer);
begin
Brush.Style:=bsSolid;
Brush.Color:=clRed;
Circle(x,y,r);
end;
procedure KeyPress(key:char);
begin
case key of
'!':d:=-d;
'+':if z>5 then z:=z-5;
'-':if z<40 then z:=z+5;
#27:Window.Close;
end;
end; 
var c,x,y:integer;
    k:char;
begin
SetwindowSize(w,w);
onkeypress:=KeyPress;
c:=w div 2;
k:=#0;
x:=r;
y:=w-r;
d:=1;
z:=20;
LockDrawing;
while k<>#27 do
 begin
  Window.Clear;
  Brush.Style:=bsClear;
  TextOut(c-70,c-50,'! - изменение направления');
  TextOut(c-70,c-30,'+  увеличение скорости');
  TextOut(c-70,c-10,'-  уменьшение скорости');
  TextOut(c-70,c+10,'Esc - выход');
  Krug(x,y);
  Sleep(z);
  if d=1 then
   begin
    if(x<w-r)and(y<=r) then x:=x+d
    else if (y<w-r)and(x>=w-r) then y:=y+d
    else if(x>r)and(y>=w-r) then x:=x-d
    else if (y>r)and(x<=w-r) then y:=y-d;
  end 
  else
   begin
    if(x<w-r)and(y>=w-r) then x:=x-d
    else if(x>=w-r)and(y>r) then y:=y+d
    else if (x>r)and(y<=r) then x:=x+d
    else if (x<=r)and(y<w-r)then y:=y-d;
   end; 
  Redraw;
 end;
end.