const L = 15; // размерность доски

struct CBord
{
   byte V[L];  // вертикали
   byte D1[2*L-1]; // восходящие диагонали
   byte D2[2*L-1]; // нисходящие диагонали
};

typedef  int * CCoord; // массив будет содержить положения ферзя в каждой строке

bool f(CBord A, int m, int n, CCoord coord) // собственно функция. m - размерность доски, n - с какой строки начинать.
{
    CBord B; int i;
    bool bResult = false;

    if (n==1) // терминальная ситуация
      for (i = 0; i < m; i++)
      {
         if ( A.V[i] && A.D1[i+1] && A.D2[m+i-1]) // если есть куда поставить ферзя в последней строке
         {
             coord[0] = i;  // ставим
             bResult = true;  // и возращаем истину
          }
       }
   else
   {
      for (i = 0; i< m; i++)
      {
          if (A.V[i] && A.D1[i+n] && A.D2[m+i-n]) // ищем куда можно поставить ферзя
              {
               B = A;
               B.V[i] = 0;
               B.D1[i+n]  = 0;
               B.D2[m+i-n] = 0; // отмечаем битые вертикаль и диагонали
               if (f(B,m,n-1,coord)) // рекурсивный вызов
                {
                  bResult = true;
                  coord[n-1] = i;
                 }
               }
           }

        }
        return bResult;
}

CBord A; int coord[L];

for (int i = 0;  i < L; i++) A.V[i] = 1;
for (int i = 0;  i < 2*L-1; i++) A.D1[i] = 1;
for (int i = 0;  i < 2*L-1; i++) A.D2[i] = 1; // вначале доска пустая

for (int i = 0; i < L; i++) coord[i] = 0; // обнуляем координаты

if  f(A,L,L,coord) {/*сохранить в файл*/} ; // вычисляем расстановку, если F возвращает True, сохраняем координаты в файл.

const L = 15;

type bord = record
            V: array[1..L] of boolean;
            D1: array[1..2*L-1] of boolean;
            D2: array[1..2*L-1] of boolean;
            end;

     Pos = array [1..L] of byte;

function f_optimized(A:bord; n,m:byte;var coord:pos):boolean;

implementation

function f(A:bord; n,m:byte;var coord:pos):boolean;
var B:bord; i:byte;
begin
   result:=false;
   if n=1 then begin for i:=1 to m do
           if A.V[i] and A.D1[i] and A.D2[m-i+1] then begin
             coord[1]:=i;
              result:=true;
              end
           end
   else begin
      for i:=1 to m do
          if A.V[i] then
            if A.D1[i+n-1] then
              if A.D2[m-i+n] then
               begin
               B:=A;
               B.V[i]:=false;
               B.D1[i+n-1]:=false;
               B.D2[m-i+n]:=false;
                if f(B,n-1,m,coord) then begin
                  result:=true;
                  coord[n]:=i;
                  exit;
                end
               end;
        end;
end;

 for i:=1 to l do A.V[i]:=true;
  for i:=1 to 2*l-1 do A.d1[i]:=true;
  for i:=1 to 2*l-1 do A.d2[i]:=true;

  for i:=1 to m do coord[i]:=0;

  if f(A,m,m,coord) then begin
  // сохранить коорд. в файл
  end;