перестановка слов в предложении

[luybeznov]

надо вывести все возможные перестановки слов в предложении исключая повторения т.е. перестановки не должны повторяться, одинаковые перестановки не выводить.
Эта программа пока работает так:
Если ввести предложение из одинаковых слов, например: лимон лимон лимон
перестановки будут такие:
лимон лимон лимон
лимон лимон лимон
лимон лимон лимон

а надо вывести только лимон лимон лимон (так как одинаковые перестановки не выводить)

вот сама задача ее надо доделать правильно

uses 
SysUtils; 

type Combination=array [1..100] of integer; 
var N: byte;S:string;p:integer; 
j,i:integer; 
x: combination; 
var a:array[0..100] of string; 

// Перевод из строки 
procedure Print; 
begin 

for i:=1 to n do 
write(' ',a[x]); 
writeln; 
end; 

procedure swap(var d,j:integer); 
var x:integer; 
begin 
x:=d; 
d:=j; 
j:=x; 
end; 

procedure generate(k:byte); 
var j:integer; 
begin 
if k=N then 
print 
else 
for j:=k+1 to n do begin 
swap (x[k+1],x[j]); 
generate(k+1); 
swap (x[k+1],x[j]); 
end; 
end; 
begin 

write('vvedite predlogenie: ');readln(s); 
s:=s+' '; j:=0; 
while copy (s,1,1)=' ' do delete(s,1,1); 
while s<>'' do begin 
j:=j+1; 
while copy (s,1,1)<>' ' do begin 
a[j]:=a[j]+copy (s,1,1); 
delete (s,1,1); 
end; 
while copy (s,1,1)=' ' do delete(s,1,1); 
end; 

N:=j; 
for i:=1 to N do x:=i; 
generate(0); 
readln; 
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, как это у Вас работало?!?! Тут же явные синтаксические ошибки в коде!

нужно

procedure Print;
var i: integer;
begin
  for i := 1 to n do
    write(' ', a[x[i]]);
....
  N := j;
  for i := 1 to N do x[i] := i;
  generate(0);

во-вторых, любое решение проблемы является допустимым?
просто я бы решил "в лоб" - завёл TStringList и добавлял все комбинации в этот список. Но добавлял (и выводил на экран) только в том случае, если такой комбинации в списке ещё нет..
Доработка кода займёт пять минут.
Недостаток - при достаточно большом количестве членов предложения - программа будет проворно "кушать" память, да и на быстродействие програмы такой подход явно не скажется положительно!