pascal 输入的数据变星号

在pascal贴吧中有，地址我忘了，不过，用pascal做登陆程序是很难的，除非DELPHI
uses crt;
var a:string;
begin
a:="";
while a<>"123" do
begin
readkey;
a:=a+readkey;
write('*');
end;
...
end.
123是密码，...表示登录成功后的代码。
我看的大概就是这样，不过它不识退格。

uses crt;
var
s,a:string;
begin
readln(a);{输入原密码}
while s<>a do
begin
if keypressed then
begin
write('*');
s:=s+readkey;
end;
pass;{表示密码通过后想干吗}
end;
end.

既然原来不对那只有调用crt函数，将光标向前移。
说句实在话，我自己对crt及graph也不是很了解，如果你需要Pascal图形技巧的话，就留下邮箱。我会把Pascal图形教程和TURBO PASCAL高级编程技术与实用程序集锦发给你。
如果我说的不对可以发百度消息给我。

LS就是个沙茶，自己运行一下就知道不行了

delphi做，或者用crt库 清屏