anchor.diff:  	procedure container.insert(p: iterator; data: longInt);
   	var
   		index, i: longInt;
  +		it: iterator;
   	begin
  -		index := p.get_link() - get_begin().get_link();
  +		it := get_begin();
  +		index := p.get_link() - it.get_link();
  +		it.destroy();
   
   		if m_length = m_capacity then
   		begin
  
positive.code: 			m_data[i] := m_data[i-1];
  
  		m_data[index] := data;
  	end;
  
  	procedure container.erase(p: iterator);
  
negative.code: 	constructor container.create();
  	begin
  		m_length := 0;
  		m_capacity := 10;
  		setLength(m_data, m_capacity);
  	end;
  
  	destructor container.destroy();
  	begin
  		m_length := 0;
  		m_capacity := 0;
  		setLength(m_data, m_capacity);
  	end;
  
  	procedure container.push_back(data: longInt);
  	var
  		it: iterator;
  	begin
  		it := get_end();
  		insert(it, data);
  		it.destroy();
  	end;
  
  	function container.pop_back(): longInt;
  