Надо расставить н ферзей на шахматной доске размера н на н

program SuperQueens;
uses crt;
 
type
  tQueen= array [1..100] of integer;
var n:integer;
  queen,QueenMax : tQueen; { массив положений ферзей }
 
  { Процедура печати решения }
procedure ShowBoard(q: tQueen);
var
  i,j : integer;
begin
  for i:=1 to n do begin
    Write(q[i]:3,'  ');
    for j:=1 to n do if q[i]=j then write(' S') else write(' *');
    writeln;
  end;
  writeln;
end;
 
  { Функция проверки совместимости m-го ферзя с предыдущими }
function Hit(m:integer):boolean;
var
  h: boolean;
  i : integer;
begin
  h:= false;
  for i:=1 to m-1 do h:= h or
    (queen[i] = queen[m]) or
    (i+queen[i] = m+queen[m]) or { нисходящие диагонали }
    (i-queen[i] = m-queen[m]);  { восходящие диагонали }
  Hit:=h
end;
 
 
var
  l,max: integer;
 
  { Процедура, осуществляющая перебор }
procedure Next(m:integer);
var
  i : integer;
begin
  if m<=n then begin
    for i := 0  to n  do begin
      queen[m]:=i;
      if i=0 then Next(m+1)
      else if not Hit(m) then begin { m-ый ферзь не бьёт предыдущих }
        Inc(l);
        if l>max  then begin { текущий максимум }
          QueenMax:= queen;
          max:= l
        end;
        Next(m+1);
        Dec(l)
      end
    end
  end
end;
 
 
begin
write('введите N ');
readln(n);
  max:=0;
  l:=0;
  Next(1);
  writeln('max queens count is ',max);
  ShowBoard(QueenMax);
  readln;
end.