Не находит модуль Windows

program Snake;
uses WinCrt,Windows,Graphabc;
label start;
var
    gd,gm,i,j,dx,dy,x,y,size,Time,ax,ay,score,hx,levelspeed:integer;{dx,dy coordinates for deleting blocks}
    snakebody: array[1..2,1..100] of integer;{x,y for }
    snakedirection,level:string;
    lvl:boolean;
    c:char;
    PixelColor:word;
procedure init;
begin
gd:=detect;
InitGraph(gd,gm,'');
if graphresult<>0 then exit;
SetWindowText(graphwindow,'Snaker');
end;
 
procedure cleararray;
begin
for i:=1 to 2 do
for j:=1 to 100 do
snakebody[i,j]:=0;
end;
 
procedure makeblock;
begin
setfillstyle(solidfill,black);
bar(x,y,x+44,y+44);
putpixel(x,y,2);
putpixel(x+1,y,2);
putpixel(x,y+1,2);
 
putpixel(x+44,y,2);
putpixel(x+43,y,2);
putpixel(x+44,y+1,2);
 
putpixel(x,y+44,2);
putpixel(x,y+43,2);
putpixel(x+1,y+44,2);
 
putpixel(x+44,y+44,2);
putpixel(x+44,y+43,2);
putpixel(x+43,y+44,2);
end;
 
procedure deleteblock;
begin
setfillstyle(solidfill,green);
bar(dx,dy,dx+44,dy+44);
end;
 
procedure moveup;
begin
y:=y-45;
PixelColor:=GetPixel(x+10,y+10);
if PixelColor=0 then hx:=6;
makeblock;
end;
 
procedure movedown;
begin
y:=y+45;
PixelColor:=GetPixel(x+10,y+10);
if PixelColor=0 then hx:=6;
makeblock;
end;
 
procedure moveright;
begin
x:=x+45;
PixelColor:=GetPixel(x+10,y+10);
if PixelColor=0 then hx:=6;
makeblock;
end;
 
procedure moveleft;
begin
x:=x-45;
PixelColor:=GetPixel(x+10,y+10);
if PixelColor=0 then hx:=6;
makeblock;
end;
 
procedure movesnake;
begin
if lvl then
 begin
  case snakedirection of
  'up':moveup;
  'down':movedown;
  'right':moveright;
  'left':moveleft;
  end;
  snakebody[1,size]:=x;
  snakebody[2,size]:=y;
 end
else
 begin
  case snakedirection of
  'up':moveup;
  'down':movedown;
  'right':moveright;
  'left':moveleft;
  end;
 dx:=snakebody[1,1];
 dy:=snakebody[2,1];
 deleteblock;
 for i:=1 to 2 do
 for j:=1 to 99 do
 snakebody[i,j]:=snakebody[i,j+1];
 {saving a head of snake}
 snakebody[1,size]:=x;
 snakebody[2,size]:=y;
 end;
lvl:=false;
end;
 
procedure setdefaultsnake;
begin
x:=6;
y:=51;
for i:=1 to 3 do
begin
x:=x+45;
makeblock;
snakebody[1,i]:=x;
snakebody[2,i]:=y;
end;
end;
 
procedure makeapple;
begin
setfillstyle(solidfill,red);
bar(ax,ay,ax+44,ay+44);
end;
 
procedure generateapple;
begin
repeat
begin
ax:=6+45*(random(24)+1);
ay:=6+45*(random(14)+1);
end until (ax<>x)and(ay<>y);
makeapple;
end;
 
procedure showscore;
begin
setfillstyle(solidfill,green);
bar(300,750,400,900);
settextstyle(0,0,5);
case score of
 0:outtextxy(300,750,'0');
 1:outtextxy(300,750,'1');
 2:outtextxy(300,750,'2');
 3:outtextxy(300,750,'3');
 4:outtextxy(300,750,'4');
 5:outtextxy(300,750,'5');
 6:outtextxy(300,750,'6');
 7:outtextxy(300,750,'7');
 8:outtextxy(300,750,'8');
 9:outtextxy(300,750,'9');
 10:outtextxy(300,750,'10');
 11:outtextxy(300,750,'11');
 12:outtextxy(300,750,'12');
 13:outtextxy(300,750,'13');
 14:outtextxy(300,750,'14');
 15:outtextxy(300,750,'15');
 16:outtextxy(300,750,'16');
 17:outtextxy(300,750,'17');
 18:outtextxy(300,750,'18');
 19:outtextxy(300,750,'19');
 20:outtextxy(300,750,'20');
 21:outtextxy(300,750,'21');
 22:outtextxy(300,750,'22');
 23:outtextxy(300,750,'23');
 24:outtextxy(300,750,'24');
 25:outtextxy(300,750,'25');
 26:outtextxy(300,750,'26');
 27:outtextxy(300,750,'27');
 28:outtextxy(300,750,'28');
 29:outtextxy(300,750,'29');
 30:outtextxy(300,750,'30');
 31:outtextxy(300,750,'31');
 32:outtextxy(300,750,'32');
 33:outtextxy(300,750,'33');
 34:outtextxy(300,750,'34');
 35:outtextxy(300,750,'35');
 36:outtextxy(300,750,'36');
 37:outtextxy(300,750,'37');
 38:outtextxy(300,750,'38');
 39:outtextxy(300,750,'39');
 40:outtextxy(300,750,'40');
 41:outtextxy(300,750,'41');
 42:outtextxy(300,750,'42');
 43:outtextxy(300,750,'43');
 44:outtextxy(300,750,'44');
 45:outtextxy(300,750,'45');
 46:outtextxy(300,750,'46');
 47:outtextxy(300,750,'47');
 48:outtextxy(300,750,'48');
 49:outtextxy(300,750,'49');
 50:begin outtextxy(300,750,'50');x:=1;score:=0; end;
end;
end;
 
procedure makefield;
begin
setfillstyle(solidfill,green);
bar(0,0,getmaxx,getmaxy);
setcolor(black);
rectangle(50,50,1176,726);
rectangle(49,49,1177,727);
settextstyle(0,0,5);
outtextxy(50,750,'Score:');
settextstyle(0,0,3);
outtextxy(450,330,'Press Enter');
setdefaultsnake;
score:=0;
showscore;
settextstyle(0,0,3);
outtextxy(450,850,'F1-easy  F2-hard');
repeat begin c:=readkey;if c=#0 then begin c:=readkey;if ord(c)=101 then level:='easy';if ord(c)=102 then level:='hard';end; end until (ord(c)=(101)or(102))or(c=#13);
case level of
'easy':outtextxy(400,750,'Level: EASY');
'hard':outtextxy(400,750,'Level: HARD');
end;
setfillstyle(solidfill,green);
bar(450,330,1000,700);
end;
 
begin
init;
repeat
begin
size:=3;
level:='easy';
snakedirection:='right';
cleararray;
makefield;
generateapple;
repeat
begin
if keypressed then
 begin
  c:=readkey;
  case c of
   #72:if (snakebody[1,size]<>snakebody[1,size-1]) then snakedirection:='up';
   #80:if (snakebody[1,size]<>snakebody[1,size-1]) then snakedirection:='down';
   #77:if (snakebody[2,size]<>snakebody[2,size-1]) then snakedirection:='right';
   #75:if (snakebody[2,size]<>snakebody[2,size-1]) then snakedirection:='left';
   #27:exit;
  end;
 end;
if (ax=x)and(ay=y) then
 begin
  score:=score+1;
  size:=size+1;
  lvl:=true;
  showscore;
  if score<>50 then generateapple;
  end;
case level of
'easy':levelspeed:=100;
'hard':levelspeed:=50;
end;
delay(10);
Time:=Time+10;
if Time=levelspeed then
 begin
  movesnake;
  Time:=0;
 end;
end until (x=6)or(x=1176)or(y=6)or(y=726)or(x=1)or(hx=6);
if x=1 then outtextxy(450,330,'You Win!') else outtextxy(450,330,'Game Over');
delay(2000);
score:=0;
hx:=0;
end until c=#27;
end.