По заданному с клавиатуры слову построить все его анаграммы

надо было сразу кидать исходник, сэкономил бы время.
Если правильно понял анаграмма - это сочетание букв слова, значит самая трудная задача - сделать/переделать алгоритм перестановок без повторений. а можно просто взять такой алгоритм из гугла и не маяться с пасцалем.

procedure change(s,new:string);
var
t1,t2:string;
i:byte;
begin
t1 := s; t2 := new;
if (length(t1) > 1) then
for i:=1 to length(t1) do begin
t2 := t2 + t1;
delete(t1,pos(t1,t1),1);
change(t1,t2);
t1 := s; t2 := new;
end
else
writeln(t2,t1);
end;

var
s,new:string;
begin
new := '';
readln(s);
change(s,new);
readln;
end.

http://forum.codenet.ru/archive/index.php/t-16787.html
Но я не знаю толком ни паскаль ни Visual C++