Дописать программу "шар для боулинга"

program ball ;
Uses GraphAbc ;
var x,y,r,dy,dx,k:integer;
begin
SetWindowSize(400,400);
dx:=4;
dy:=5;
x:=random(390);
y:=random(390);
r:=10;
while k<>1 do
begin
//SetPenColor(ClBlack);
SetBrushColor(clBlue);
circle (x,y,r);
sleep(7);
SetPenColor(ClWhite);
SetBrushColor(clWhite);
sleep(2);
circle (x,y,r);
 
x:=x+dx;
y:=y+dy;
if (y<=10) or (y>=390) then dy:=(-1)*dy;
if (x<=10) or (x>=390) then dx:=(-1)*dx;
end;
end.

program ball;
Uses GraphAbc;
type
  TPoint=record
    x,y:integer;
  end;
  Tshar=record
    r:integer;
    color:ColorType;
    position:TPoint;
    decremen:TPoint;
  end;
var
  sh1,sh2:Tshar;
  k:integer;
procedure draw_shar(var sh:Tshar; c:ColorType);
begin
  SetPenColor(c);
  SetBrushColor(c);
  circle(sh.position.x,sh.position.y,sh.r);
end;
procedure dec_shar(var sh:Tshar);
begin
  Inc(sh.position.x,sh.decremen.x);
  Inc(sh.position.y,sh.decremen.y);
  if (sh.position.y<=10)or(sh.position.y>=390) then
    sh.decremen.y:=(-1)*sh.decremen.y;
  if (sh.position.x<=10) or (sh.position.x>=390) then
    sh.decremen.x:=(-1)*sh.decremen.x;
end;
begin
  SetWindowSize(400,400);
  {первый шар}
  sh1.r:=10;
  sh1.color:=clBlue;
  sh1.position.x:=random(390);
  sh1.position.y:=random(390);
  sh1.decremen.x:=4;
  sh1.decremen.y:=5;
  {второй шар}
  sh2.r:=20;
  sh2.color:=clRed;
  sh2.position.x:=random(390);
  sh2.position.y:=random(390);
  sh2.decremen.x:=1;
  sh2.decremen.y:=3;
  while k<>1 do
  begin
    draw_shar(sh1,clWhite);
    draw_shar(sh2,clWhite);
    dec_shar(sh1);
    dec_shar(sh2);
    draw_shar(sh1,sh1.color);
    draw_shar(sh2,sh2.color);
    sleep(9);
  end;
end.