太少了吧!发一次言不就是25分?哪先给你一个主程序吧!
program zhs (input,output);
  var
    x:array[1..8] of integer;
    a,b,c:array[-7..16] of boolean;
    i:integer;
  procedure print;
    {如果加好多分的话,下次就给你这个}
  procedure try(i:integer);
    {如果加好多分的话,下次就给你这个}
  begin
    for i:=-7 to 16 do
      begin
        a[i]:=true;
        b[i]:=true;
        c[i]:=true
      end;
    try(1)
  end.

这种程序到处都有啦！！

我说了,加多分就会给全的.
下次会给过程print
再下次就给过程try
三次就不给全了???
二楼的情子也太急了点.
这样也好呀,让大家想一想呀!!!!!!

现在给过程print代码;
procedure print;
  var
    k:integer;
  begin
    for k:=1 to 8 do
      write(x[k]:4);
    writeln
  end;

现在给过程try:
program try (i:integer);
  var
    j:integer;
  begin
    for j:=1 to 8 do
      if a[j] and b[i+j] and c[i-j]
        then begin
               x[i]:=j;
               a[j]:=false;
               b[i+j]:=false;
               c[i-j]:=false;
               if i < 8
                 then try(i+1)
                 else print;
               a[j]:=true;
               b[i+j]:=true;
               c[i-j]:=true
             end
  end;
  

procedure print;
  var
    k:integer;
  begin
    for k:=1 to 8 do
      write(x[k]:4);
    writeln
  end;