全排列问题pascal解题程序

var
a,b:array[0..9]of longint;
n:longint;
procedure print;
var
i:longint;
begin
    for i:=1 to n do
    write(a[i]:5);//要保留五个常宽
    writeln;
end;
procedure search(dep:longint);//dep是当前填到的第几个数
var
i:longint;
begin
    if dep>n then//如果填完了就输出
    begin
        print;
        exit;
    end;
    for i:=1 to n do//n个位置
    begin
        if b[i]=0 then//若第i个位置还没填
        begin
            b[i]:=1;//变为已用
            a[dep]:=i;//把i填进去
            search(dep+1);//搜下一位
            b[i]:=0;//回溯
        end;
    end;
end;
begin
    read(n);
    fillchar(b,sizeof(b),0);//赋值
    search(1);//搜索
end.