Задача на большой перебор

[МаксимNEWProgramm]

Дана строка S и набор A слов А[1], ..., A[k]. Разбить строку S на слова набора всеми возможными способами.

Пример: S=ABBC

A[1]=A, A[2]=AB, A[3]=BC, A[4]=BBC, A[5]=H, A[6]=B

S = A B BC

= A BBC

= AB BC
Помогите кто чем может, а то мне за зачёт пара будет!

[alexBlack]

Из начала строки выделяем все возможные слова словаря.
Повторяем эту операцию для всех остатков строки.
Если строка выбрана полностью, печатаем текущее разбиение.

const ACount = 6;
const A : array [1..ACount] of String =
       ('A', 'AB', 'BC', 'BBC', 'H', 'B');

procedure Split(S:String; CSplit:String);
var i, j, L:integer;
    B:boolean;
    S1, S2:String;
begin
   for i:=1 to ACount do begin
      L := length(A[i]);
      if length(S) >= L then begin
         j := 1; B := true;
         While (j <= L) and B do begin
            if A[i][j] <> S[j] then B := false;
            inc(j);
         end;
         if B then begin
            if length(S) = L then begin
               writeLn(CSplit + ' ' + S)
            end else begin
               S1 := copy(S, 1, L);
               S2 := copy(S, L+1, length(S));
               Split(S2, CSplit+' '+S1);
            end;
         end;
      end;
   end;
end;


var S : String;
begin
   S := 'ABBC';
   Split(S, '');
end;

[МаксимNEWProgramm]

Спасибо огромное Выручил.