请教各位大哥，代码（读文本文件）错在哪儿(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
inputfile&:textfile;
s,textname:string;

begin
textname:='C:/WINDOWS/Desktop/newfile/a.txt';
assignfile(inputfile,textname);
reset(inputfile);
while not eof(inputfile) do
begin
readin(inputfile,s);
end;
closefile(inputfile);
end;


错误为：
[Error] Unit1.pas(37): Undeclared identifier: 'readin'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

好像
readin-->readLn 吧

唉！

大哥见笑了，一定好好学习