[Pascal], голова змейки

[zhenka619]

uses crt;
var
  x,y,vx,vy:integer;
  cx,kx,ky,cy:array [0..99] of byte;
 ch:char;
  d: integer;
  ps,xe,ye,i:integer; 
  l: integer;
   f: integer;
begin
  writeln('upravlenie ocychectvl9etca knopkami -w-a-s-d-');
  readln;
  clrscr;
  Randomize;
 
  x:=1; 
  y:=12;
  xe:=45;
  ye:=13;
  gotoxy(xe,ye);
  writeln('$');
  i:=1;
  		while (x>=1)and(x<=80)and(y>=1)and(y<=25)do begin
                   
  			for f:=0 to 80 do begin
  				if (x=kx[f]) and (y=ky[f])then x:=-1;
  			end;
 
 			ps:=(ps+101) mod 100;
			GoTOXY(x,y); cx[ps]:=x; cy[ps]:=y;
        		textcolor(white);
  			write(#178);
    			delay(100);
    				if keypressed then begin ch:=readkey;
    						case ch of
      						'd':begin vx:=1; vy:=0 end;
      						'a':begin vx:=-1; vy:=0 end;
   							'w':begin vx:=0; vy:=-1 end;
      						's':begin vx:=0; vy:=1 end;
      					end;
    				end;{if}
   		      gotoxy(cx[(ps-i+100) mod 100],cy[(ps-i+100) mod 100]);
    			write(' ');
    			inc(x,vx);
    			inc(y,vy);
     				if (l>=2) and (l mod 2 =0) then begin     				
     				       d:=d+1;
     					 kx[d]:=random(70);
                               ky[d]:=random(20);
     					 gotoxy(kx[d],ky[d]);
     					 writeln('X');
             			 l:=l-2;
     				end;
 
 			     if (x=xe) and (y=ye) then begin
    					i:=i+1;
      				l:=l+1;
      				xe:=random(70)+2;
      				ye:=random(20)+2;
      				gotoXY(xe,ye);
      				write('$');   
    			     end;

  	   end;{while}


  		clrscr;
 		gotoxy(32,12);
  		write('LOST!LOST!LOST');
   		delay(1000);
   		clrscr;
   		delay(1000);
    		gotoxy(32,12); 
   		write('LOST!LOST!LOST');
   		delay(1000);
    		clrscr;
    		delay(1000);
   		gotoxy(32,12); 
    		write('LOST!LOST!LOST');
   		delay(1000);
   		clrscr;
    		delay(1000);
     		gotoxy(32,12);
  		write('Bash Resultat =',i);
  		delay(2000);
 
end.

Не совсем понимаю как сделать голову, через массив или просто?
Заранее благоларю