Люди проблема со змейкой ужасно долго старался но не получилось в одном месте, хотя вроде бы все правильно написал!

[zhenka619]

uses crt;
var
  x,y:integer;
  mx,my,xe,ye,eochki:array [0..1000] of byte;
  ch : char;
  st : string;
  ima : string;
  echet,index,dlina,dlinamax,l,vx,vy,proverka,z,k:integer;
  records: text;
begin
  clrscr;
  Randomize;
  index:=0;
  y:=6;
  x:=3;
  dlina:=1;
  echet:=1;
  xe[echet]:=12;
  ye[echet]:=12;
  gotoxy(xe[echet],ye[echet]);
  eochki[echet]:=random(8)+1;
  write (eochki[echet]);
      while (x>=1) and (x<=80) and (y>=1) and (y<=25)  do begin
     	index:=index+1;
  	GoTOXY(x,y); mx[index]:=x; my[index]:=y;
  	write(#176);
    	
    		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}
            x:=x+vx;
            y:=y+vy;
            gotoxy(x,y);
            write(#1);
            delay(100);
    	gotoxy(mx[index-dlina],my[index-dlina]);
    	write(' ');
                        for l:=1 to 10 do
                        begin
    		            if (x=xe[l]) and (y=ye[l])  then begin
      			    dlinamax:=dlinamax+eochki[l]+1;
     			    xe[l]:=random(70);
     			    ye[l]:=random(20);
      			    eochki[l]:=random(8)+1;
      			    gotoXY(xe[l],ye[l]);
     			    write(eochki[l]);
    		            end;
	            end;
    		if (dlina<dlinamax) then begin
   			 dlina:=dlina+1;
    		end;

   		
                        if (proverka>30) and (echet<10) then
                        begin
                     	proverka:=0;
                        echet:=echet+1;
                        eochki[echet]:=random(8)+1;
                        xe[echet]:=random(70)+1;
                        ye[echet]:=random(20)+1;
                        gotoxy(xe[echet],ye[echet]);
                        write(eochki[echet]);
                        end;
  
                       if (index=dlinamax+1)then begin
   		 	 l:=1;
    				repeat
    					mx[l]:=mx[l+1];
    					my[l]:=my[l+1];
    					l:=l+1;
    				until l=dlinamax+2;
    			index:=dlinamax+1;
    		end;
                        
                        for l:=0 to dlina do begin
                        if (x=mx[l]) and (y=my[l]) and ((ch='a') or (ch='d' )or (ch='s' )or (ch='w' ))  then begin
                         x:=-100000000;
                        end; 
                        end;
                        
                        
 l:=random(5);
 proverka:=proverka+l;

     end;{while}
clrscr;
readln;		
end.

 if (x=mx[l]) and (y=my[l]) and ((ch='a') or (ch='d' )or (ch='s' )or (ch='w' ))  then begin
                         x:=-100000000;
                        end; 
                        end;

Вот этот момент почему то не получился, заранее благодарю!

[Alex11223]

А чего не получилось-то? Что там происходить должно?

[zhenka619]

Змейка должна при врезании в себя "умирать" ну то есть цикл должен закончиться!

[VektorAB]

 ((ch='a') or (ch='d' )or (ch='s' )or (ch='w' ))

зачем это?

[VektorAB]

for l:=0 to dlina do 
   if (x=mx[l]) and (y=my[l]) then 
      x:=-10;

Так ведь намного понятнее написано?) Зачем так много бегин эндов