Pascal ABC. Установить на шахматной доске минимум ферзей (первоначально 8), чтобы каждое поле было под боем

[pyxamex]

Доска (8*8). Требуется, чтобы программа выводила первоначально матрицу с 8-ью ферзями, затем с 7-ью и так уменьшала количество ферзей до тех пор пока не станет невозможно расставить ферзей так, чтобы все поля оказались под боем.
У меня есть не до конца продуманный алгоритм (поэтому код не получается)
1)Задаем начальное количество ферзей n=8

2)с помощью random (возможно по-другому) заполняем матрицу ферзями

а) проверяем, чтобы программа не пыталась поставить несколько ферзей на одну клетку

3)ферзь обозначим цифрой 2, поля, находящиеся под угрозой ферзя ((i+(ik-jk)=j) or (i+j=ik+jk) or (i=ik) or (j=jk)) обозначим 1

4)в переменной p проверяем все ли клетки под боем, если p=8*8, то выводим матрицу