var
  a:array[1..100] of integer;
  n,i,m,j,e,l:integer;

procedure swap(a,b :integer;var c,d:integer);
   var
     temp:integer;
   begin
     temp:=a;
     a:=b;
     b:=temp;
   end;
begin

  assign(input,'e:\wzq\fp.bat\random.in');
  assign(output,'e:\wzq\fp.bat\random.out');


  randomize ;
  readln(n);
  a[1]:=random(1001);
  for i:=2 to n do
    begin
       m:=0;
       a[i]:=random (1001);
       for j:=1 to i-1 do
        if a[j]<>a[i]
          then  m:=m+1;
       if i=n
          then m:=m+1;
    end;

   for i:=1 to n do
    write (a[i]:5);
     reset(input);
     rewrite(output);
   writeln;
   for i:=1 to n-1 do

     for j:= 1 to i-1 do

        if a[j] =a[i]
           then begin
                  for e:=j to n do
                    a[e]:=a[e+1];
                write(a[i]:5);
                end;


   for i:=1 to 3 do
     writeln;

   while l<m do
    begin
     l:=m;
     for j:= m downto l do
      if a[j]<a[j-1]
         then swap (a[j-1],a[j],a[j-1],a[j]);
    end;
  writeln(m);
  for i:=1 to m do
   write(a[i]:5);
  close(input);
  close(output);
end.
请问一下，为什吗COMPUTER说找不到源文件，exitcoude=103

哪位大侠给我解释解释，我星期六参加noip2008需要用，小弟感激不尽