Ошибка при попытке совместить программы (игра Pacman)

program p4_1_1;
 
uses
  GraphABC;
var
 i, sc, hsc, x, y, x1, y1: integer;
  
 
 
var b: array [1..5] of integer;
var o: array [1..5] of integer;
var s: array [1..5] of integer;
var f: array [1..5] of integer;
 
 hp:=3;
 
procedure draw ();
begin
  var i: integer;
  SetWindowCaption('Pacman');
 
//фон
  Window.Clear;
  rectangle(0, 0, 700, 700);
  floodfill(x, y, clblack);
 
  
//граница  
  SetPenWidth(3);
  SetPenColor(clblue);
  rectangle(50, 50, 600, 400);
  
  
//пакман  
  SetPenWidth(1);
  SetPenColor(clwhite);
  Brush.Color := clyellow;
  rectangle(x - 10, y - 10, x + 10, y + 10);
  floodfill(x, y, clyellow);
 
 
//враги  
  Brush.Color := clred;
  Circle(x1, y1, 10);
 
  
//бонус
 for i := 1 to 5 do 
 begin  
  Brush.Color := clLightCoral;
  Circle(b[i], o[i], 6);
 
//очки
  Brush.Color := clLightCoral;
  Circle(s[i], f[i], 3);
end;  
 
  
//информация  
  Brush.Color := clblack;
  SetFontSize(20);
  SetFontColor(clMagenta);
  TextOut(50, 8, 'Game score:');
  TextOut(210, 8, inttostr(sc));
  TextOut(400, 8, 'High score:');
  TextOut(545, 8, inttostr(hsc));
  TextOut(50, 420, 'Health:');
  TextOut(140, 420, inttostr(hp));
 
 Redraw;
 
end;
 
 procedure KeyDown(key: integer);
begin
  case key of
    VK_Left: x := x - 2;
    VK_Right: x := x + 2;
    VK_Up: y := y - 2;
    VK_Down: y := y + 2;
    VK_z: window.Close;
  end;
end;
 
begin
  OnKeyDown := KeyDown;
  LockDrawing;
  x := 100;y := 100;
  x1 := 200;y1 := 100;
  
 for i := 1 to 5 do 
 begin
 b[i]:=random(56,594);
 o[i]:=random(56,394);
 s[i]:=random(53,597);
 f[i]:=random(53,397);
 end;
 
  while true do 
begin
    x1 := x1 + 2*Sign(x - x1); y1 := y1 + 2*Sign(y - y1);
//    x2 := x2 + 2*Sign(x - x2); y2 := y2 + 2*Sign(y - y2);
    
    if (x - 20 < x1) and (x1 <= x + 20) and (y1 <= y + 20) and (y1 >= y - 20) and (y1 <= y + 20) and (y1 >= y - 20) then begin hp:=hp-1; x1:=200; y1:=200; x:=100; y:=100; sleep(1000); end;
    if (y1 < y + 20) and (x1 <= x + 20) and (x1 >= x - 20) and (y1 >= y - 20) and (x1 <= x + 20) and (x1 >= x - 20) then begin hp:=hp-1; x1:=200; y1:=200; x:=100; y:=100; sleep(1000); end;
   for i := 1 to 5 do 
 begin  
     if (x - 16 < b[i]) and (b[i] <= x + 16) and (o[i] <= y + 16) and (o[i] >= y - 16) and (o[i] <= y + 16) and (o[i] >= y - 16) then begin hp:=hp+1; sc:=sc+35; o[i]:=random(56,394);  b[i]:=random(56,594); end;
     if (o[i] < y + 16) and (b[i] <= x + 16) and (b[i] >= x - 16) and (o[i] >= y - 16) and (b[i] <= x + 16) and (b[i] >= x - 16) then begin hp:=hp+1; sc:=sc+35; o[i]:=random(56,394);  b[i]:=random(56,594); end;
 
     if (x - 13 < s[i]) and (s[i] < x + 13) and (f[i] <= y + 13) and (f[i] >= y - 13) and (f[i] <= y + 13) and (f[i] >= y - 13) then begin sc:=sc+10; f[i]:=random(53,397);  s[i]:=random(53,597); end;
     if (f[i] < y + 13) and (s[i] <= x + 13) and (s[i] >= x - 13) and (f[i] >= y - 13) and (s[i] <= x + 13) and (s[i] >= x - 13) then begin sc:=sc+10; f[i]:=random(53,397);  s[i]:=random(53,597); end;
  end; 
    
    if hp=0 then begin Window.Clear; Brush.Color := clwhite; SetFontSize(50); SetFontColor(clred); TextOut(165,180,'Game over'); Redraw; sleep(9999999999); end;
 
    
 //граница
    
    if x < 62 then x := 62;
    if x > 588 then x := 588;
    if y > 388 then y := 388;
    if y < 62 then y := 62;
 
    if x1 < 62 then x1 := 62;
    if x1 > 588 then x1 := 588;
    if y1 > 388 then y1 := 388;
    if y1 < 62 then y1 := 62;
 
    draw;
    sleep(1);
    
  end;
  
 
end.

uses
  GraphABC;
 
var
 x, y, kx, ky, l, kp: integer;
  
  var gx: array [1..26] of integer;
  var gy: array [1..17] of integer;
 
begin
 
  SetWindowCaption('Pacman');
 
//фон
  Window.Clear;
  rectangle(0, 0, 700, 700);
  floodfill(50, 50, clblack);
  
//граница  
  SetPenWidth(3);
  SetPenColor(clblue);
  rectangle(50, 50, 600, 410);
  floodfill(150, 150, clblack);  
 
 for kp := 1 to 17 do
 begin
 
  for kx := 1 to 26 do
  begin
 l:=random(1,5);
  if l=1 then begin
   gx[kx]:= 41 + kx*21;
   gy[kp]:= 41 + kp*21;
   rectangle(gx[kx]-10, gy[kp]-10, gx[kx]+10, gy[kp]+10);
   floodfill(gx[kx], gy[kp], clwhite);
 end;
  end;
end;
end.