naja, in wachsen sagst du
Delphi-Quellcode:
for i:=1 to laenge do
begin
x[i+1] := x[i];
y[i+1] := y[i];
Danach ist x[2] = x[1] und y[2] = y[1]
das heißt die schlange ist länger geworden, aber zwei felder (1 und 2) liegen übereinander
du musst beim verlängern die bewegung berücksichtigen.