在如下的程序代码中，为什么readkey会卡住？
repeat
writeln('帐号： ',account);
writeln('密码：');
writeln('验证码：');
gotoxy(8,2);
repeat
ui:=readkey;
if ord(ui)=8 then
begin
if length(passwordui)>0 then delete(passwordui,length(passwordui),1);
write(chr(8),' ');
end
else
begin
write('*');
passwordui:=concat(passwordui,ui);
end;
until ord(ui)=13;
if passwordui=password then t:=true
else
begin
gotoxy(length(passwordui)+9,2);
write('错误的密码！请重新输入。');
delay(1000);
passwordui:='';
end;
clrscr;
until t;