REMPLACER LE TEXTE PAR DES * DANS UN READLN

function askpassword (passwordchar : char; minlength, maxlength : Longint) : String;
var
 C : Char;
 S : String;
begin
S := '';
Repeat
C := Readkey;
If ((C <> chr(13)) and (C <> chr(8)) and (length(S) <> maxlength)) then Write(passwordchar);
If ((C <> chr(13)) and (C <> chr(8))and (length(S) <> maxlength)) then S := S + C;
If length(S) = maxlength then write(chr(7));
If C = chr(8) then S := '';
If ((C = chr(13)) and (length(S) < minlength)) then Write(chr(7));
Until ((C = chr(13)) and (length(S) > minlength - 1));
askpassword := S;
end;

appelez la fonction comme ça :
var
 password : String;
begin
password := askpassword(<le caractère qui remplacera les lettres (souvent '*')>,<le length minimum du password si pas : 0>,<le length maximum fu password si pas : -1>);
end.