Нарисовать шарики отскакивают от стенок- Pascal(Паскаль)

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.