pascal编程:这代码错哪了?运行不了啊,number.txt与源代码在同一目录!

var n:array[1..10] of integer;
   temp,i,j:integer;
begin
  assign(input,'number.txt');
  reset(input);
  read(n[1],n[2],n[3],n[4]);
  readln;
  readln(n[5],n[6],n[7],n[8],n[9],n[10]);
  close(input);
  for i:=1 to 9 do
    for j:=2 to 10 do
      if n[i]>n[j] then
      begin
        temp:=n[i];
        n[i]:=n[j];
        n[j]:=temp;
      end;
  assign(output,'number.txt');
  rewrite(output);
  writeln;
  writeln;
  writeln;
  for i:=1 to 10 do write(output,i,' ');
  close(output);
end.

在freepascal的编译环境中 是不允许文件关联时使用缺省目录的 也就是直接写文件名表示当前目录 应为配置文件没有关联 但是如果运行exe文件就不存在这个问题了 所以调试的时候写上盘符

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！