Inac jedna chyba (ale nie moc zavazna) je IMHO tuto:

    eat:
      begin
        writechar(x,y,0,free);
        wl := wl + 1;
        writewl;
        snd(250,20);
        repeat
          x := random(30) + 1;
          y := random(28) + 1;
        until a[x,y] = ' ';
        writechar(x,y,ceat,eat);
      end;

- moze sa stat ze nove nahodne x,y pre "eat" bude rovnake ako pozicia hlavy (povodne x,y), a na konci fcie to prepises hlavou, t.j. od toho momentu bude o jedno "eat" na poli menej.