How do I automatically create and populate folders based on document names

tell application "Finder"
	activate
	
	set the selected_items to the selection
	--This checks that items have been selected
	if the selected_items is {} then
		beep
		display dialog "No items selected" buttons {"Cancel"} default button 1
	end if
	--Loop thru all of the selected items
	repeat with this_item in the selected_items
		--Retrieve the filename
		set iName to name of this_item
		
		--Set the string 'theFilename' to the files actual name without the extension
		set theFileName to text 1 thru ((offset of "." in iName) - 1) of iName
		--Seperate the first name from the 'theFilename'
		set fName to text 1 thru ((offset of "-" in theFileName) - 1) of theFileName
		--Seperate the last name from the 'theFilename'
		set LName to text ((offset of "-" in theFileName) + 1) thru -1 of theFileName
		set this_folder to container of this_item
		--An 'IF" statement to check if the 'theFilename' contains the string '-STF'
		--If it does then it will be added to the folder name if not then it will be dismissed
		try
			if iName contains "STF" then
				set theFolder to (make new folder at this_folder with properties {name:word 2 of fName & " " & word 1 of fName & "-" & word 2 of LName & " " & word 1 of LName & "-STF"})
				move this_item to theFolder
			else
				set theFolder to (make new folder at this_folder with properties {name:word 2 of fName & " " & word 1 of fName & "-" & word 2 of LName & " " & word 1 of LName})
				move this_item to theFolder
			end if
		end try
	end repeat
end tell