Quelltext Verständniss

[netscanner]

Hallo,
ich habe folgenden QT gefunden:

Delphi-Quellcode:

procedure TForm1.calc_snake; 
var 
  i, j: Integer; 
begin 
  for i := 0 to breite do 
    for j := 0 to hoehe do 
      if map[i, j]>0 then 
        Dec(map[i, j]); 
  Inc(kopf.X, richtung.X); 
  Inc(kopf.Y, richtung.Y); 
  if (kopf.X<0) or (kopf.X>breite) or (kopf.Y<0) or (kopf.Y>hoehe) then 
  begin 
    spiel_ende; 
    ShowMessage('Sie haben den Rand berührt!'); 
  end; 
  if (map[kopf.X, kopf.Y]>0) and (not ende) then 
  begin 
    spiel_ende; 
    ShowMessage('Sie haben sich selbst gebissen!'); 
  end; 
  if (kopf.X=futter.X) and (kopf.Y=futter.Y) then 
  begin 
    Inc(laenge); 
    neues_futter; 
  end; 
  map[kopf.X, kopf.Y] := laenge; 
end;

Das ist ein Teil eines Snake spiels.
Leider verstehe ich die vorletzte Codezeile nicht,,,
Erläuterung: laenge wird pro gefressenem Stein um eins erhöht