To nie je chyba ale schvalne naprogramovane

...
  case a[x,y] of
...
    body:
      while a[x,y] = body do
        begin
          writechar(wx[w1],wy[w1],0,free);
          inc(w1);
          if w1 > wmax then w1 := 0;
          wl := wl - 1;
          writewl;
          snd(500,20);
        end;

ale fakt sa mi nechce lustit v tej kope glob.premennych ci niekde nezomotal premennu aka tam nema byt (alebo preco ta to potom z hry vyhodilo).