помогите с модулем graphABC. ИГРА

uses GraphABC,Events,crt;
const
    d=10;
var x,y,r: integer;
var x1,y1,x2,y2,i: integer;
var x3,y3,x4,y4,k,j: integer;
 
procedure okno;
begin
Hidecursor;
SetWindowSize(800, 600);
SetWindowTitle('Äâèãàé êðóã!');
  x:=WindowWidth div 2;
  y:=WindowHeight div 2;
  SetPenColor(clwhite);
  end;
 
procedure ob;
begin
  SetBrushColor(clyellow);
 Rectangle(x-r,y-r,x+r,y+r);
  end;
 
procedure Hide;
begin
  SetBrushColor(clwhite);
  Rectangle(x-r,y-r,x+r,y+r);
end;
 
procedure KeyDown(s: integer);
begin
  Hide;
  case s of
   VK_Left: if x > R + d then x:=x-d;
   VK_Up: if y > R + d then y:=y-d;
   VK_Right: if x + R + d < 800 then x:=x+d;
   VK_Down: if y + R + d < 600 then y:=y+d;
  end;
  ob;
end;
begin
r:=50;
okno;
ob; OnKeyDown:=KeyDown;
 Rectangle(x1,y1,x2,y2);
 for i:=0 to 100 do
 begin
  if k<>1 then
  begin
  setbrushcolor(clwhite);
  Rectangle(x1,y1,x2,y2);
  x1:=random(700);y1:=random(500);
  x2:=x1+50;y2:=y1+50;
  setbrushcolor(clred);
  Rectangle(x1,y1,x2,y2);
  end;
  if j<>2 then
  begin
  setbrushcolor(clwhite);
  Rectangle(x3,y3,x4,y4);
  x3:=random(700);y3:=random(500);
  x4:=x3+50;y4:=y3+50;
  setbrushcolor(clblue);
  Rectangle(x3,y3,x4,y4);
  end;
  if (x1<x-r) and (y1<y-r) and (x2<x+r) and (y2<y+r) then
  begin
  k:=1;
  end;
  if (x3<x-r) and(y3<y-r) and (x4<x+r) and (y4<y+r) then
  begin
  j:=2;
  end;
  sleep(3000);
 end;
end.

uses GraphABC,Events,crt;
const
    d=10;
var x5,y5,x6,y6,r: integer;
var x1,y1,x2,y2,i: integer;
var x3,y3,x4,y4,k,j: integer;
procedure okno;
begin
Hidecursor;
SetWindowSize(800, 600);
SetWindowTitle('Äâèãàé êðóã!');
  x5:=WindowWidth div 2;
  y5:=WindowHeight div 2;
  x6:=x5+100;
  y6:=y5+100;
  SetPenColor(clwhite);
  end;
 
procedure ob;
begin
  SetBrushColor(clyellow);
Rectangle(x5,y5,x6,y6);
  end;
 
procedure Hide;
begin
  SetBrushColor(clwhite);
  Rectangle(x5,y5,x6,y6);
end;
 
procedure KeyDown(s: integer);
begin
  Hide;
  case s of
   VK_Left: if x5 > R + d then
   begin
   x5:=x5-d; x6:=x5-100;
   end;
   VK_Up: if y5 > R + d then
    begin
   y5:=y5-d; y6:=y5-100;
    end;
   VK_Right: if x5 + R + d < 800 then
    begin
   x5:=x5+d; x6:=x5+100;
    end;
   VK_Down: if y5 + R + d < 600 then
    begin
   y5:=y5+d; y6:=y5+100;
    end;
  end;
  ob;
end;
begin
r:=50;
okno;
ob; OnKeyDown:=KeyDown;
 for i:=0 to 100 do
 begin
  if k<>1 then
  begin
  setbrushcolor(clwhite);
  Rectangle(x1,y1,x2,y2);
  x1:=random(700);y1:=random(500);
  x2:=x1+50;y2:=y1+50;
  setbrushcolor(clred);
  Rectangle(x1,y1,x2,y2);
  end;
  if j<>2 then
  begin
  setbrushcolor(clwhite);
  Rectangle(x3,y3,x4,y4);
  x3:=random(700);y3:=random(500);
  x4:=x3+50;y4:=y3+50;
  setbrushcolor(clblue);
  Rectangle(x3,y3,x4,y4);
  end
  else i:=99;
  sleep(3000);
  if (x1>x5) and (y1>y5) and (x2<x6) and (y2<y6) then k:=1;
  if (x3>x5) and (y3>y5) and (x4<x6) and (y4<y6) then j:=2;
 
 end;
end.