anchor.diff:  	constructor container.create();
   	begin
   		m_length := 0;
  -		m_capacity := 10;
  +		m_capacity := 1;
   		setLength(m_data, m_capacity);
   	end;
   
  
positive.code: 	procedure container.erase(p: iterator);
  	var
  		index, i: longInt;
  	begin
  		index := p.get_link() - get_begin().get_link();
  
  		m_length := m_length - 1;
  
  
negative.code: 		end;
  		m_length := m_length + 1;
  
  		for i := m_length - 1 downto index + 1 do
  			m_data[i] := m_data[i-1];
  
  		m_data[index] := data;
  