Помогите написать маленькую прогу, Программа пароль Опции

[ASD_9]

Пароль я сам сделал, а вот что бы вместо цифр появлялись * не могу

[nikita182]

прогу в студию!

[Sto]

Uses
   Crt;
Var
   ch : Char;
   pass : String;
Begin
   ClrScr;
   Write('Enter Password  -> ');
   ch := ReadKey;
   While ch <> #13 Do
   Begin
      Write('*');
      ch := ReadKey;
      pass := pass + ch;
   End;
   WriteLn;
   Write(pass);
   ReadKey;
End.

Ввод осущ. до нажатия клавиши Enter

[nikita182]

  Write(pass);

нужно в этот момент выводить '*' ?

[ASD_9]

БОЛЬШОЕ СПАСИБО !!!

[nikita182]

хм..я вообще-то спросил..

[Sto]

  Write(pass);

нужно в этот момент выводить '*' ?

Я непонял вопрос.

[nikita182]

косяк упорол, сорри..

[мисс_граффити]

Только у тебя первый символ не идет в пароль...
Вводишь 1234 (****) - выводится 234

   Write('Enter Password  -> ');
   ch := ReadKey; {вот здесь надо заменить на ch:='1', например. или пользоваться циклом с постусловием}

[Sto]

Только у тебя первый символ не идет в пароль...
Вводишь 1234 (****) - выводится 234

   Write('Enter Password  -> ');
   ch := ReadKey; {вот здесь надо заменить на ch:='1', например. или пользоваться циклом с постусловием}

Точно, не заметил....
Ну тогда вот так нужно сделать

Uses
   Crt;
Var
   ch : Char;
   pass : String;
Begin
   ClrScr;
   Write('Enter Password  -> ');
   ch := ReadKey;
   While ch <> #13 Do
   Begin
      pass := pass + ch;
      Write('*');
      ch := ReadKey;
   End;
   WriteLn;
   Write(pass);
   ReadKey;
End.