Отскок шарика от стенки - PascalABC.NET

uses GraphAbc;
var
  x,y,dx,dy,r:integer;
  C,B:System.Drawing.Color;
procedure dxdy(var dx,dy:integer;var c:System.Drawing.Color;b:System.Drawing.Color);
var
  tx,ty:integer;
begin
repeat
  tx:=random(3)-1;
  ty:=random(3)-1;
until ((tx<>0) or (ty<>0)) and (tx<>dx) and (ty<>dy);
dx:=tx;dy:=ty;
repeat c:=clRandom; until c<>b;
end;
begin
  r:=10;
  randomize;
  SetWindowHeight(480);
  SetWindowWidth(640);
  SetWindowIsFixedSize(true);
  b:=clGreen;
  SetBrushColor(b);
  SetPenColor(b);
  FillRectangle(0,0,WindowWidth,WindowHeight);
  x:=random(640);
  y:=random(480);
  dxdy(dx,dy,c,b);
  repeat
    LockDrawing;
    SetBrushColor(b);
    circle(x,y,r);
    SetBrushColor(c);
    if (x+dx>Window.Width-r) or (x+dx<r) or (y+dy>WindowHeight-r) or (y+dy<r) then begin
      dxdy(dx,dy,c,b);
    end else begin  
      x:=x+dx;
      y:=y+dy;
      Circle(x,y,r);
    end;
    UnlockDrawing;
  until false;
end.