[Ghost]

stastan

uses
  crt;

var
  s: string;

procedure write_all (s, p: string); far;
var
  i: integer;
begin
  if length (p) = length (s)
    then writeln (p)
    else for i := 1 to length (s) do
      if pos (s[i], p) = 0 then write_all (s, p + s[i]);
end;

begin
  clrscr;
  write ('input string: '); readln (s);
  write_all (s, '');
  write ('press any key to exit...');
  readkey;
end.

З.Ы. ЕЖ - может займемся синхронным плаванием? У нас хорошо получается.