关于PASCAL语言中的文件格式，书也看了,但觉得只是看书还不够,实际运用起来才知道书上讲的太少了。请问大家能不能帮我修改一个程序，修改成文件格式的：

 [color=FF0000] 随即输入几个数，然后排出所有的可能，列出来。 
如：输入1，2，3 
   显示1,2,3 
       1,3,2 
       2,1,3 
       2,3,1 
       3,1,2 
       3,2,1 [/color]

我的写法（用了文件格式，但一直提示找不到文件）：
program aaaa;
var a:array[1..1000]of 0..9;
    i,j,n:integer;
    f,g:text;
procedure sort(x:integer;y:integer);
  var k:integer;
  begin
    if y<=n then
      begin
       k:=a[x];
       a[x]:=a[y];
       a[y]:=k;
       for i:=1 to n do
         write(g,a[i],' ') ;
       writeln;
       sort(x+1,x+2);
      end;
  end;

begin
  assign(f,'sort.in');
  assign(g,'sort.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
    read(f,a[i]);
  repeat
    j:=j+1;
    sort(1,2);
  until j=n;
  close(f);
  close(g);
end.[/color][/color][/color][/color][/color]
麻烦大家帮我修改一下，谢谢！