請問一下:
如何寫一個程式讓使用者輸入3則
輸出:
321
312
231
213
132
123

 
我已自行寫好!!    function xx(s, r:String): String;
var m, i: Integer;
  ss, yy: String;
begin
  m := length(s);
  if (m = 1) then
     begin
       result := r   s;
       form1.Memo1.Lines.Add(result);
     end
  else
     begin
       for i:= 1 to m do
       begin
         ss := s;
         yy := copy(s,i,1);
         delete(ss,i,1);
         xx(ss, r yy);
       end;
     end;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Clear;
  xx('ABC','');
end;