求助

我有一段程序，运行时报错'I/Oerror 102错误',错误提示的语句我用？？？做了标示
procedure TForm9.BitBtn3Click(Sender: TObject);
var pwdfile:textfile;
    pwdstr:string;
    times:integer;
begin
begin
case radiogroup1.ItemIndex of{判断祖何况的选择情况}
 0:assignfile(pwdfile,'d:\data\xuesheng.txt');
 1:assignfile(pwdfile,'d:\data\guanli.txt');
 label4.caption:=cons(pwdfile);
end;
reset(pwdfile);？？？？？？
readln(pwdfile,pwdstr);
closefile(pwdfile);