Ладьи Опции

[nastya_ab]

Помогите пожалуйста!

Ладьи.
Требуется найти такую расстановку 8 ладей на шахматной доске, при которой они не будут угрожать друг другу. Первые три фигуры расставляет пользователь.

[Lapp]

Введи два множества: для букв и для цифр. Затем выбирай расположение так, чтобы ни буква, ни цифра не была в соответствующем множестве (случайный перебор). Найденные позиции добавляй к множествам.
То есть примерно вот так (опускаю тут ручной ввод позиций первых трех ладей) :

  for i:=4 to 8 do begin
    repeat l:=Chr(Random(8)+65) until not (l in Letters);
    repeat n:=Random(8)+1 until not (n in Numbers);
    WriteLn(l,' ',n);
    Include(Letters,l);
    Include(Numbers,n);
  end;