Как составить слова из букв заданного слова(Паскаль)

[lirikoff]

проблема такая, нужно составить программу, которая из букв заданного слова, допустим Арифметика, составит и выведет на экран все возможные варианты слов.
язык паскаль
подскажите если возможно

[Serge_Bliznykov]

ну было же, было, всё было..
неужели так трудно воспользоваться поиском?

вот решение через рекурсию:

{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 48124,0,655360}
var S:string;
    LenS : byte absolute S;
    a1,a2 : string;

procedure ShowVariant(S0,S1 : string);
var I :byte;
begin
  if length(S1)=1 then begin WriteLn(S0+S1); Exit end;
  a1 := '';
  a2 :=  copy(S1,I+1,length(S1));
  for i:=1 to length(S1) do ShowVariant(S0+S1[i],copy(S1,1,I-1)+
                             copy(S1,I+1,length(S1)));
end;

begin
  Writeln('Переборщик строк     v1.0 by B_SA (Specailly for Nataly & Juliy)');
  if ParamCount < 1 then begin WriteLn('Укажите в командной строке требуемую строчку.');
      Writeln('Для выдачи результатов в файл введите combine.exe ТРАТАТА > имя_файла');
      Writeln('   ТРАТАТА - строка для преобразования'); Halt(1)
  end;
  S := paramstr(1);
  ShowVariant('',S);
end.