Размещения с повторением элементов (Pascal Delphi)

[mnikola2009]

Всем привет. Есть функция генерирующая размещения с повторением элементов из 'ABCDEF' длиной 5 символов, следующего вида: AAAAA ... AAAAB ... AABAA ... ACAAA ... ACABA ... FFFFF.

Подскажите как изменить функцию, чтобы каждая буква повторялась не более 3-х раз? Чтобы в генерации небыло строк с 4-5 одинаковыми буквами: AAAAA ... AAAAB ... AABAA ... ACAAA ... FFFFF. А были все другие, например: ACABA ... ABBBC и т.д.

Передаваемые параметры: s='ABCDEF' - это буквы с которых генерируются размещения, k=5 - это длина результата, povtor=true - для повторения букв.

function razmeschenie(s: string; k: word; povtor: boolean): tstrings;
var p: pboolean;
  c: string;
  strlist: tstringlist;
procedure proced(zn, dl: word);
  var w: integer;
  begin
    for w := 1 to length(s) do
    if (p^) then
      begin
        c[zn] :=s[w];
        if zn < dl then   proced(zn + 1, dl);
        if zn = dl then  strlist.Add(c);
      end;
  end;
begin
  strlist := tstringlist.Create;
  strlist.Clear;

  new(p);
  if k <= length(s) then p := @povtor else p^ := true;
  setlength(c, k);
  proced(1, k);
  result := strlist;
end;