Задачка про ферзей в кв. матрице

Нужно раставить N ферзей на шахматной доске NxN клеток, так чтоб они не били друг-друга. Напомню ферзь бьет по горизонтали, вертикали и диогоналям.
Я создал две A,B матрицы, чтоб одна входила в цикл и каждый эл. проверяла, я вторая матрица(B) для записи ферзей, также с помощю ее идет проверка кадого ферзя, на то, он проверяемую клетку матрицы A или нет, потом я вывожу саму матрицу B. Обе матрицы ог. типа, если клетка матрицы B с ферзем то она true и печатает 1, если нет то печатается 0. Я зделал проверкуследущю тоесть по вертикали и горизонтали ясно как проверить, по диагоналям я проверял если столбец проверяемой клетки минус столбец ферзя из матрицы B равен разности сталбцов, тоесть abs(i1-i2)=abs(j1-j2) то проверяемая клетка стоит на диогонали. Также проверачную матрицу(B) я пускал в цикл на проверку ферзей, если клетка была ферзь то начинал проверку если нет, то нифига :). Короче, вот так вот, мой алгоритм грубо говоря. Его я могу щас учлучшить, но фигня он не срабатывает. Вот код, мне лижбы заработал а так я сам сделаю дальше.
-------------------------------------------------------------------------
program n1;
Uses Crt;
const m=100;
var
A:array[1..m,1..m] of boolean;
B:array[1..m,1..m] of boolean;
s:boolean;
n,i,e,c,k:integer;
begin
Write('Vvedite porydok shaxmatnoy doski n:');
Readln(n);
for i:=1 to n do
for e:=1 to n do
begin
for c:=1 to n do
for k:=1 to n do
if B[c,k]=true then
if (c=i)or(e=k)or(abs(i-c)=abs(e-k)) then
s:=true;
if s<>true then
B[i,e]:=true;
end;
for c:=1 to n do
for k:=1 to n do
begin
if B[c,k]=true then
Write('1')
else
Write('0');
if k=n then
Writeln(' ');
end;
Readln
end.
-------------------------------------------------------------------------
Где то тут у меня грубая ошибка :( т.к. показывается всего лиж один ферзь. плизз помогите устронить. Программы после пива писать нельзя.