Code:

const
  BrojSlova=5;
  zamena:array[1..BrojSlova]of char =('a','W','c','x','e');

// U zamenu stavis sva slova koja zelis da isprobas posto se za pass ne mogu
// staviti svi karakteri, pa bi to samo produzilo proveru
// U BrojSlova, koliko ima tih karaktera
// duzina je duzina zeljenog pass koja moze da se menja u programu
// naprimer krenes sa duzinom od 6 pa sve do 12

var
  i,duzina:integer;
  rec: string;
  br:array[1..BrojSlova] of integer;


  function povecaj(x:integer):boolean;
  begin
    br[x]:=succ(br[x]);
      if br[x]>BrojSlova then
        begin
          if x=1 then
            povecaj:=true
          else
            begin
              br[x]:=1;
              povecaj:=povecaj(x-1);
            end;
        end
      else
        povecaj:=false;
  end;

begin
  duzina:=3;
  for i:= 1 to duzina do br[i]:=1;
  repeat
    begin
        rec:='';
        for i:= 1 to duzina do
            rec:=rec+zamena[br[i]];
// U varijabli rec se nalazi kombinacija "aaa" zatim "aaW" tako sve do "eee"
    end;
  until povecaj(duzina);
end.