convert pages to pdf applescript

test.applescript

on run {input, parameters}
  repeat with theFile in input
    tell application "Finder"
      set theFilesFolder to (folder of theFile) as text
      end tell

      tell application "Pages"
      set theDoc to open theFile

      set theDocName to name of theDoc

      export theDoc as PDF to file ((theFilesFolder & theDocName & ".pdf") as text)

      close theDoc

    end tell
  end repeat
  return input
end run