Pascal/Turbo Pascal - Para algun gurú de pascal

Lo que quiero hacer es convertir caracteres en asteriscos(*). Porque hice un programa que para entrar hay que insertar una contraseña, pero el problema está en que cuando ingreso el pass se ven las letras en el monitor.

P.D: Antes de poner una respuesta por favor verifiquen que este bien, porque ya me dieron un monton de respuestas erróneas en diferentes lugares. Gracias.

Holas, emmm, mirate la funcion Keypressed que no produce eco, solo deja la tecla en el buffer de teclado, despues la agarras con Readkey, y mostras lo que se te ocurra, asterisco en este caso.

Por favor podriais ser más claros?? Muchas gracias

Acá va un ejemplo:

8<-----------------------------------------------------------------------

uses Crt;
var
c : char;
s : array [1..127] of char;
i : integer;

begin
c := #0;

for i := 1 to 127 do
s[i] := #0;

Write('Ingrese password: ');
i := 1;
while (c <> #13) and (i <= 127) do
begin
c := ReadKey;
if c <> #13 then
begin
Write('*');
s[i] := c
end;
i := i + 1
end;

WriteLn;
Write('Usted ingres¢: ');
i := 1;
while (s[i] <> #0) and (i <= 127) do
begin
Write(s[i]);
i := i + 1
end;

ReadKey
end.

8<-----------------------------------------------------------------------

Suerte.