anchor.diff:  const n = 30;
   const m = 50;
   
  -        
  +
   var
       aktualni: array [0..m+1, 0..n+1] of boolean;
       nove    : array [1..m, 1..n] of boolean;
       i,j     : integer;
  -    
   
   function vykresli() : integer;
   var
  
positive.code:                 aktualni[j,i] := false;
          end;
      end;
  
      repeat
          vykresli();
      
  
negative.code:         writeln();
      end;
  end;
  
      
  function edit() : integer;
  var 
      key : char = #0;
      x,y : integer;
  
  begin
      x := 1;
      y := 1;
      repeat
          
          delay(50);
          clrscr;
          key := #0;
          if keypressed then
          begin
  
              key := readKey;
              
          end;
  
          case key of
              #75 : x := x - 1;
              #72 : y := y - 1;
              #77 : x := x + 1;
              #80 : y := y + 1;
              #13 : aktualni[x,y] := not aktualni[x,y];
          end;
          vykresli();
          gotoxy(x,y);
          write('X');
          
  {
          case key of
              #75 : writeln('left');
              #72 : writeln('up');
              #77 : writeln('right');
              #80 : writeln('down');
              #13 : writeln('enter');
          end;
  }
  
      until key = #27;
  end;
  
  
  
  function novaGenerace() : integer;
  var
  