[疑難] [pascal]點解個program load 唔到?

program abc;
uses wincrt;
var
   name : string[10];
   tel : string[8];
   a : text;
begin
   assign(a, 'C:\tel.txt');
   reset(a);
   repeat
      write('Enter name of student (* to end): ');
      readln(name);
      if (name <> '*')
         then begin
                 name := name + '          ';
                 write('Enter telephone number: ');
                 readln(tel);
                 tel := tel + '        ';
                 writeln(a, name, tel)
              end
   until name = '*';
   close(a)
end.

個program就係咁
當我打完1次名同tel no. 佢就彈個' Runtime error 105 at 0001:013D ' 出黎