[Electronic_Arts]

Чисто виртуозно написано но не подходит

Код:

const alf ='ABC'; // не получится
var n1, n2,n3:integer;
  rs: string[3]; // тоже не пойдет
  list: TStringList;

list:=TstringList.Create;
for n1:=1 to length(alf) {количество выполняемых циклов находим факториалом потому что 3 книжки можно разместить в полке 6ю разными способами}
begin
 rs[1]:=alf[n1];
 for n2:=1 to length(alf)
 begin 
  rs[2]:=alf[n2];
  for n3:=1 to length(alf)
  begin
    rs[3]:=alf[n3];
    list.add(rs);
  end;
end;
end;
list.savetofile(....);

Но все же спасибо что старался помочь