Как сделать столкновение мяча с квадратом?

uses GraphABC;
 
var
  x1, y1, x2, y2, x3, y3, kx, ky: integer;
 
procedure Pm;
begin
  if (x3 > 620) or (x3 < 20) then kx := kx * (-1);
  if (y3 > 460) or (y3 < 20) then ky := ky * (-1);
  x3 := x3 + kx;
  y3 := y3 + ky;
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of 
    VK_Right: x1 := x1 + 10;
    VK_Left: x1 := x1 - 10;
    VK_Up: y1 := y1 - 10; 
    VK_Down: y1 := y1 + 10;
    VK_d: x2 := x2 + 10;
    VK_a: x2 := x2 - 10;
    VK_w: y2 := y2 - 10;
    VK_s: y2 := y2 + 10;
    VK_g:
      begin
        x1 := 300;
        y1 := 240;
        x2 := 340;
        y2 := 240;
        x3 := 340;
        y3 := 240;
        kx := 3;
        ky := 1;
      end;
    VK_F1:
      begin
        if kx < 0 then kx := -3 else kx := 3;
        if ky < 0 then ky := -1 else ky := 1;
      end;
    VK_F2:
      begin
        if kx < 0 then kx := -5 else kx := 5;
        if ky < 0 then ky := -3 else ky := 3;
      end;
    VK_F3:
      begin
        if kx < 0 then kx := -7 else kx := 7;
        if ky < 0 then ky := -5 else ky := 5;
      end;
  end;
end;
 
begin
  x1 := 300;
  y1 := 240;
  x2 := 340;
  y2 := 240;
  x3 := 340;
  y3 := 240;
  kx := 3;
  ky := 1;
  lockdrawing;
  repeat;
    if x1 = -20 then x1 := 650;
    if x1 = 660 then x1 := -10;         //Управление :
    if x2 = -20 then x2 := 650;         //Синий куб : стрелочки.
    if x2 = 660 then x2 := -10;         //Желтый куб : w, a, s, d.
    if y1 = -20 then y1 := 490;         //Изменение скорости шара : F1, F2, F3.
    if y1 = 500 then y1 := -10;         //Все обьекты на стратовые позиции (рестарт программы) : g.
    if y2 = -20 then y2 := 490;
    if y2 = 500 then y2 := -10;
    clearwindow;
    setbrushcolor(clRed);
    circle(x3, y3, 20);
    setbrushcolor(clblue);
    Rectangle(x1 - 20, y1 + 20, x1 + 20, y1 - 20);
    setbrushcolor(clyellow);
    Rectangle(x2 - 20, y2 + 20, x2 + 20, y2 - 20);
    OnKeyDown := KeyDown;
    Pm;
    redraw;
  until false;
end.