Problem bei Snake

[Longhorn123]

Hatt den wirklich niemand von euch eine Idee?
Für mich wäre es auch wichtig zu klären ob es eine Alternative zu den doppelten Schleifen gibt:

Delphi-Quellcode:

for i:=0 to Paintbox1.Width do
    for j:=0 to Paintbox1.Height do
      map[i,j] := 0;

Gibt des den keine Allternative dazu?
Mir sind nur while, repeat, with und for-Schleifen bekannt gibt es den keine anderen Möglichkeiten???????