あっ。DP(動的計画法の略)じゃ無理だ。別の方法使います。(DPあんまり使えないのでもしかしたらDPでもいけるかも)
DIM ALL$[0]
DEF DEL(A[],J)
 VAR L=LEN(A)-1
 DEM R$[0]
 FOR I=0 TO L
  IF I!=J THEN
   PUSH R$,A[I]
  ENDIF
 NEXT I
 RETURN R$
END
DEF DFS DIC$,STR$
 VAR L=LEN(DIC$)
 VAR I%
 PUSH ALL$,STR$
 FOR I%=0 TO L-1
  PUSH ALL$,STR$+DIC$[I%]
  DFS DEL(DIC$,I%),STR$+DIC$[I%]
 NEXT I%
END
(動作未確認)
あと文字の種類多いととんでもない時間かかります。
Out Of Memory出るかも。