想做个输入后输出然后再清空的小程序，为毛在readLn（a）里提示103？
下面是程序：
program project2;
Const
infile = *t1.in*;
Var
a: Integer;
Begin
Assign(input, infile);
Reset(input);
Close(input);
ReadLn(a);
WriteLn(a);
Rewrite(input);
Close(input);
End.
用的是Lazarus1.2.2. 。

输入文件的单引号变成了米号.....