anchor.diff:  begin
     SaveStream.Write('FieldworksList');
   
  -  SaveStream.Write(Length(fFields));
  +  SaveStream.Write(fFieldsCount);
     for I := 0 to fFieldsCount - 1 do
     begin
       SaveStream.Write(fFields[I].Loc);
  
positive.code:     Inc(I);
  
    if I >= fFieldsCount then
      SetLength(fFields, fFieldsCount + LENGTH_INC);
  
    fFields[I].Loc := aLoc;
    fFields[I].FieldType := aFieldType;
    fFields[I].JobStatus := js_Open;
    fFields[I].Worker := nil;
  
    Inc(fFieldsCount);
  end;
  
  
  
negative.code:     Inc(I);
  
    if I >= fPlansCount then
      Inc(fPlansCount);
  
    if I >= Length(fPlans) then
      SetLength(fPlans, Length(fPlans) + LENGTH_INC);
  
    fPlans[I].House := aHouse.GetHousePointer;
    fPlans[I].JobStatus := js_Open;
    fPlans[I].Worker := nil;
  end;
  
  
  