Ошибка в коде программы

Program p1;
uses GraphABC;
var  
p: Picture;
s : array [,] of integer;
i,x,y,vspeed : integer;
game_end : boolean;
procedure Draw(); begin
 
  Redraw;  
  LockDrawing;
 
 
  setbrushcolor(clwhite); 
  fillrectangle(0,0,1640,1480);
   
   
  setbrushcolor(clblack);
  fillrectangle(0,176,640,224);
 
   
   p:=Picture.create(x+8,y+8);
p.Load ('soul knight.bmp');
 
 p.Draw (10,10);
  
   
end;
 
procedure KeyPress(key: char); begin
 
  if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then …
  x:=x+8; 
 
  if (key='a') and (s[(x div 8)-1,(y div 8)]=0) then 
  x:=x-8;
 
  if (key='w') and (vspeed=0) and (s[(x div 8),(y div 8)+1]=1) then 
  vspeed:=-16; 
   
end;  
 
procedure KeyDown(key: integer); begin
  if (key=vk_enter) then game_end:=true; 
end;
procedure Gravity(); begin
  if vspeed=0 then begin 
  if s[(x div 8),(y div 8)+1]=0 then y+=8; 
  end;   
  if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed;    
  if vspeed<>0 then 
  vspeed+=2;   
end;
 
Begin  
 
  game_end:=false;
  x:=0; 
  y:=0; 
 
  s := new integer[200,200];  
  for i:=0 to 79 do
  s[i,24] := 1;   
while game_end=false do begin  
 
  Draw();  
 
  Gravity();
 
  OnKeyPress:=KeyPress;
  OnKeyDown:=KeyDown;  
  sleep(30);  
 
end;  
 
end.

Program p1;
uses GraphABC;
var  
p: Picture;
s : array [,] of integer;
i,x,y,vspeed : integer;
game_end : boolean;
procedure Draw(); begin
 
  Redraw;  
  LockDrawing;
 
  setbrushcolor(clwhite); 
  fillrectangle(0,0,1640,1480);
   
   
  setbrushcolor(clblack);
  fillrectangle(0,362,Window.Width,400); 
   
  p.Draw (x,y);
   
end;
 
procedure KeyDown(key: integer); begin
var aa,bb,ss : integer;  
  if (key=vk_enter) or (key=VK_Escape) then game_end:=true; 
  
  if (key=vk_d) and (s[(x div 8)+1,(y div 8)]=0) and (x<Window.Width-8)  then
       x:=x+8; 
 
  if (key=vk_a) and (s[(x div 8)-1,(y div 8)]=0) and (x>8) then 
       x:=x-8;  
  
end;
 
procedure Gravity(); begin
  if vspeed=0 then begin 
  if s[(x div 8),(y div 8)+1]=0 then y+=8; 
  end;   
  if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed;    
  if vspeed<>0 then 
  vspeed+=2;   
end;
 
Begin  
 
  game_end:=false;
  x:=0; 
  y:=0; 
 
  s := new integer[200,200];  
  for i:=0 to 79 do
  s[i,24] := 1;   
 
   p:=Picture.create(161,178);
   p.Load ('soul knight.bmp');
  
while not game_end do begin  
 
  Draw();  
 
  Gravity();
 
  OnKeyDown:=KeyDown;  
  sleep(30);  
 
end;
 Window.Close;
 
 
end.