Liệt kê hết các hoán vị của chữ số - đệ qui quay lui

uses crt;
Var
  a,x:array[1..8] of integer;
  i,n,m:integer;

procedure print;
var j:integer;
begin
  n:=n+1;
  write('Cach ',n,': ');
  for j:=1 to m do
   begin
     write(x[j]);
   end;
  writeln;
  if (n mod 10 = 0) then readln;
end;

procedure try(i:integer);
var j:integer;
 begin
  if i>m then print else
  for j:=1 to m do
   if (a[j]=0) then
    begin
     x[i]:=j;
     a[j]:=1;
     try(i+1);
     a[j]:=0;
    end;
  end;

begin
clrscr;
repeat
write('m= ');
readln(m);
until (m>0) and (m<9);
try(1);
readln;
end.