Я пытаюсь сделать себе пароль!Но я не хочу чтоб кто-то ее читал пока я ее пишу!Я хочу сделать так чтобы когда я пишу на екране выходили звездачки,а сам текст анализировался!пожалуйста помогите!
P.S. Простите мои ошибки, но я не Руский!
uses crt;
var
s: string; {PAROL}
с : byte;
begin
repeat
c:=ord(readkey);
if c<>13 then write('*'); {здесь желательно сделать бы проверку если с есть допустимый символ... можно через множества }
s:=s+CHR( c );
until c<>13; { 13 код ENTER т.е конец ввода}
s[0]:=CHR(ORD(s[0])-1); {может так и не надо, только последний элемент нужно удалить в строке}
end.