Код не работает. Не понимаю, где ошибки

var 
  SPACE_DELIMITER = ' '
  NAME_COMPONENT_COUNT = 3
  DELETE_EXTRA_SPACES = FALSE
  IF CharPos('  '; Name) = 0
    FirstName = SUBSTRING(FullName; SPACE_DELIMITER; 1)
    
  // Убрать лишние пробелы
  while CharPos('  '; Name) > 0
    Name = REPLACE(Name; '  '; SPACE_DELIMITER)
  endwhile
  endif
  Name = Format('%s '; Name)
  RESULT = CreateArray(0; NAME_COMPONENT_COUNT - 1)
  I = 0
  while I < NAME_COMPONENT_COUNT
  Delimiter = ';'
  SpaceCharPos = CharPos(SPACE_DELIMITER; Name)
  DOT_DELIMITER = GetConstant("DOT_DELIMITER")
  DotCharPos = CharPos(DOT_DELIMITER; Name)
  
  IF (SpaceCharPos = 0) AND (DotCharPos = 0)  
    Delimiter = ''
  ELSE
    IF SpaceCharPos > 0
      IF (DotCharPos > 0) AND (DotCharPos < SpaceCharPos)
        Delimiter = DOT_DELIMITER
      ELSE
        Delimiter = SPACE_DELIMITER
      endif
      // Если DotCharPos - SpaceCharPos
      IF (DotCharPos - SpaceCharPos) = 1
        Delimiter = SPACE_DELIMITER & DOT_DELIMITER
      ELSE
      IF (SpaceCharPos - DotCharPos) = 1
      Delimiter = DOT_DELIMITER & SPACE_DELIMITER
      endif    
      endif    
    ELSE 
      Delimiter = DOT_DELIMITER  
    endif
  endif
  DelimiterPos = CharPos(Delimiter; Name)
  IF DelimiterPos = 0
    DelimiterPos = LENGTH(Name) 
  endif
  NamePart = Copy(Name; 1; DelimiterPos)
  RESULT[I] = TRIM(NamePart)
  I = I - 1
  // Обработать в цикле даты, полученные из SQL-запроса
  Name = Copy(Name; DelimiterPos + LENGTH(Delimiter); LENGTH(Name))
  endWhile
  endif