ошибка в программе на pascal abc net

 PROGRAM Labirintics;
//procedure LoadWindow(fname: string); - выводит в графическое окно рисунок из файла с именем fname. Файл ищется вначале в текущем каталоге, а затем в каталоге PascalABC\Media\Images.
//procedure SaveWindow(fname: string); - сохраняет содержимое графического окна в файл с именем fname.
//rectangle(x1,y1,x2,y2);
uses graphabc;
var
xf:array[1..82]of integer;
yf:array[1..81]of integer;
a,x,y,b,p,v,Xplayer,Yplayer,Xpoint,Ypoint,Yfloor,Xfloor,fly,flx,arrow,exitg,m,l:integer;
 
procedure KeyDown(Key: integer);
   begin
     case Key of
       VK_Left: arrow:=4;
       VK_Right: arrow:=3;
       VK_Down :arrow:=1;
       VK_UP :arrow:=2;
     end; 
   end;
 
begin
m:=1;
y:=26;
p:=26;
m:=1;
for b:=1 to 9 do begin
for a:=1 to 9 do begin 
xf[m]:=y+12;
yf[m]:=p+12;
y:=y+25;
m:=m+1;
end;
y:=26;
p:=p+25;
end;
 
 
x:=25;
y:=1;
p:=1;
v:=25;
//окно 1000*800
SetBrushColor(color.black);
FillRect(1,1,1000,800);
SetWindowCaption('Labirintics : the game.');
SetWindowPos(15,15);
SetWindowWidth(1000);
SetWindowHeight(800);     
for b:=1 to 32 do begin
for a:=1 to 40 do begin 
rectangle(y,p,x,v);
x:=x+25 ;
y:=y+25;
end;
x:=25;
y:=1;
p:=p+25;
v:=v+25;
end;
x:=24;
y:=2;
p:=2;
v:=24;
SetBrushColor(color.purple);
for b:=1 to 32 do begin
for a:=1 to 40 do begin 
FillRect(y,p,x,v);
x:=x+25 ;
y:=y+25;
end;
x:=24;
y:=2;
p:=p+25;
v:=v+25;
end;
//floor
x:=50;
y:=26;
p:=26;
v:=50;
SetBrushColor(color.blue);
m:=1;
for b:=1 to 9 do begin
for a:=1 to 9 do begin 
FillRect(y,p,x,v);
 
x:=x+25 ;
y:=y+25;
 
end;
x:=50;
y:=26;
p:=p+25;
v:=v+25;
end;
 
 
x:=49;
y:=27;
p:=27;
v:=49;
SetBrushColor(color.black);
for b:=1 to 9 do begin
for a:=1 to 9 do begin 
FillRect(y,p,x,v);
x:=x+25 ;
y:=y+25;
end;
x:=49;
y:=27;
p:=p+25;
v:=v+25;
end;
//ENG
//player
Xplayer:=138;
Yplayer:=138;
SetBrushColor(color.green);
FillRect(Xplayer-12,Yplayer-12,Xplayer+12,Yplayer+12);
SetBrushColor(color.black);
FillRect(Xplayer-10,Yplayer-10,Xplayer+10,Yplayer+10);
 
//POINT
Xpoint:=238;
Ypoint:=238;
SetBrushColor(color.red);
FillRect(Xpoint-12,Ypoint-12,Xpoint+12,Ypoint+12);
SetBrushColor(color.black);
FillRect(Xpoint-10,Ypoint-10,Xpoint+10,Ypoint+10);
repeat
arrow:=0;
OnKeyDown:=KeyDown; 
//move
//down
if arrow=1 then begin
Xfloor:=Xplayer;
Yfloor:=Yplayer;
Yplayer:=Yplayer+25;
for m:=1 to 81 do begin
if (yf[m]=yplayer) and (Xf[m]=Xplayer) then begin
SetBrushColor(color.blue);
FillRect(Xfloor-12,Yfloor-12,Xfloor+12,Yfloor+12);
SetBrushColor(color.black);
FillRect(Xfloor-11,Yfloor-11,Xfloor+11,Yfloor+11);
SetBrushColor(color.green);
FillRect(Xplayer-12,Yplayer-12,Xplayer+12,Yplayer+12);
 SetBrushColor(color.black);
 FillRect(Xplayer-10,Yplayer-10,Xplayer+10,Yplayer+10);
 exitg:=0;
end
 else begin
 exitg:=0;
 Yplayer:=Yfloor;
 end;
 end;
end;
//up
 if arrow=2 then begin
 Xfloor:=Xplayer;
 Yfloor:=Yplayer;
 Yplayer:=Yplayer-25;
for m:=1 to 81 do begin
if (yf[m]=yplayer) and (Xf[m]=Xplayer) then begin
 SetBrushColor(color.blue);
 FillRect(Xfloor-12,Yfloor-12,Xfloor+12,Yfloor+12);
 SetBrushColor(color.black);
 FillRect(Xfloor-11,Yfloor-11,Xfloor+11,Yfloor+11);
 SetBrushColor(color.green);
 FillRect(Xplayer-12,Yplayer-12,Xplayer+12,Yplayer+12);
 SetBrushColor(color.black);
 FillRect(Xplayer-10,Yplayer-10,Xplayer+10,Yplayer+10);
 exitg:=0;
end
 else begin
 exitg:=0;
 Yplayer:=Yfloor;
 end;
 end;
end;
//right
 if arrow=3 then begin
 Xfloor:=Xplayer;
 Yfloor:=Yplayer;
 xplayer:=xplayer+25;
for m:=1 to 81 do begin
if (yf[m]=yplayer) and (Xf[m]=Xplayer) then begin
 SetBrushColor(color.blue);
 FillRect(Xfloor-12,Yfloor-12,Xfloor+12,Yfloor+12);
 SetBrushColor(color.black);
 FillRect(Xfloor-11,Yfloor-11,Xfloor+11,Yfloor+11);
 SetBrushColor(color.green);
 FillRect(Xplayer-12,Yplayer-12,Xplayer+12,Yplayer+12);
 SetBrushColor(color.black);
 FillRect(Xplayer-10,Yplayer-10,Xplayer+10,Yplayer+10);
 exitg:=0;
end
 else begin
 exitg:=0;
 xplayer:=xfloor;
 end;
 end;
end;
//left
 if arrow=4 then begin
 Xfloor:=Xplayer;
 Yfloor:=Yplayer;
 xplayer:=xplayer-25;
for m:=1 to 81 do begin
if (yf[m]=yplayer) and (Xf[m]=Xplayer) then begin
 SetBrushColor(color.blue);
 FillRect(Xfloor-12,Yfloor-12,Xfloor+12,Yfloor+12);
 SetBrushColor(color.black);
 FillRect(Xfloor-11,Yfloor-11,Xfloor+11,Yfloor+11);
 SetBrushColor(color.green);
 FillRect(Xplayer-12,Yplayer-12,Xplayer+12,Yplayer+12);
 SetBrushColor(color.black);
 FillRect(Xplayer-10,Yplayer-10,Xplayer+10,Yplayer+10);
 exitg:=0;
end
 else begin
 exitg:=0;
 xplayer:=xfloor;
 end;
 end;
end;
 if (Xplayer=Xpoint) and (Yplayer=Ypoint) then exitg:=1;
until exitg=1;
SetWindowCaption('Labirintics : the game-ended');
end.