Нерабочий цикл. Я не понимаю почему он не работает. Я выделил нерабочий цикл пометками. Знает ли кто то причину?

uses GraphABC,ABCObjects;
var i,xHead,yHead,z,appleX,appleY:integer;
head,apple:CircleABC;
score:TextABC;
 
snake:array[1..100] of circleABC;
 
procedure KeyDown(key:integer);
begin
  if (key=vk_right) then z:=1;
  if (key=vk_left) then z:=2;
  if (key=vk_up) then z:=3;
  if (key=vk_down) then z:=4;
  end;
begin
  
  setwindowsize(1040,800);
  
  for i:=0 to 10 do begin
    line(0,i*80,windowWidth,i*80)
  end;
  
  for i:=0 to 13 do begin
    line(i*80,0,i*80,windowHeight)
  end;
  
  score:=textABC.Create(0,0,50,'0',clGray);
  
  appleX:=random(1,13)*80-40;
  appleY:=random(1,10)*80-40;
  
  apple:=circleABC.Create(appleX,appleY,40,clRed);
  head:=circleABC.Create(40,40,40,clGreen);
  
  while(true) do begin
  onKeyDown:=keyDown;
  
  if (z=1) then xHead:=xHead+80
  else if (z=2) then xHead:=xHead-80
  else if (z=3) then yHead:=yHead-80
  else if (z=4) then yHead:=yHead+80;
  
  if (xHead>windowWidth) then xHead:=0;
  if (yHead>windowHeight) then yHead:=0;
  if (xHead<0) then xHead:=windowWidth;
  if (yHead<0) then yHead:=windowHeight;
  
  
   if ((xHead=appleX) and (yHead=appleY)) then begin //Нерабочий цикл
   appleX:=random(1,8)*80-40; //
   appleY:=random(1,6)*80-40; //
   apple.MoveTo(appleX-40,appleY-40); // Нерабочий цикл
   score.Text:=((score.Text).tointeger+1).tostring(); //
   for i:=1 to 1000 do begin //
     snake[i]:=CircleABC.Create(xHead,yHead+80*i,40,clRed); //
   end; // Нерабочий цикл
   end;
  
  head.MoveTo(xHead,yHead);
  sleep(200);
  
  end;
  
end.

if apple.Intersect(head) then begin