Арканоид. Как сделать так, чтобы шарик отскакивал от блоков?

uses graphabc,events;
type matr=array[1..8,1..13] of integer;
var dx, dy, x,y,x1,y1,x2,y2,k:integer;
    a:matr;
    w:boolean;
    
procedure block(var ai:matr);
var i,j:integer;
begin
for i:=1 to 8 do
    for j:=1 to 13 do ai[i,j]:=random(3);
end;
 
procedure risblock(ai:matr);
var i,j,x1,y1:integer;
begin
x1:=5;y1:=10;
for i:=1 to 8 do begin
    for j:=1 to 13 do if a[i,j]=0 then begin
                                       rectangle(x1,y1,x1+50,y1+10);
                                       x1:=x1+53;
                                       end
                                       else x1:=x1+53;
                  x1:=5;
                  y1:=y1+13;
                  end;
                  textout(20,270,IntToStr(x));
    textout(20,290,IntToStr(y));
end;
 
procedure dvig(key:integer);
begin
  case key of
    vk_left: if x1>=5 then begin x1:=x1-10; x2:=x2-10 end;
    vk_right: if x2<=695 then begin x1:=x1+10; x2:=x2+10 end;
  end;
end;
 
 
begin
 block(a);
 k:=3;
while k <> 0 do
begin
    setwindowsize(700,400);
    x:=350;
    y:=382;
    w:=true;
    dx:=5;
    dy:=-7;
    x1:=310; y1:=387; x2:=390; y2:=400;
    rectangle(310,387,390,400);
      while w = true do
      begin
        if y>=400 then begin w:=false;
        
        k:=k-1;
        
        end
        else 
        begin
            sleep(20);
            clearwindow;
            lockdrawing;
            rectangle(x1,y1,x2,y2);
            circle(x,y,5);
            risblock(a);
            if (x>=695) or (x<=5) then dx:=-dx;
            if (y<=5) or ((abs(x-x1-40)<=40) and (abs(y-395)<=6))  then dy:=-dy;
            x:=dx+x;
            y:=y+dy;
            textout(20,300,'жизни ');
            textout(60,300, IntToStr(k));
            redraw;
            onkeydown:=dvig;
        end;
      end;
      
 end;
    clearwindow;
    textout(280,100,'===GAME OVER===');
     redraw
 
 
end.