Pascal. Перебор массива типа String

[Reatar]

Дан массив типа String. В нем есть данные, пускай будут: "Привет", "Мир", "Чудесный". Необходимо найти все возможные комбинации с этими словами.
Помогите, пожалуйста

[type_Oleg]

Вот, ..

var i,j,k:Integer;
const ARR_S:array[1..3] of string=('Bonjour', 'World', 'Wonderful');
begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   for k:=1 to 3 do
    if (i-j)*(i-k)*(k-j)<>0 then WriteLn(ARR_S[i]+' '+ARR_S[j]+' '+ARR_S[k]);
 ReadLn;
end.