Pascal/Turbo Pascal - Venga, que ya solo me queda esto, ayudadme please

Bueno chicos, esto es lo que hay:
Tengo que introducir una palabra de acceso q se solicita para poder entrar al programa es si. En total, cm puedo hacer para que al leer la palabra de acceso desde teclado, me salga en pantalla: -*********-, en vez de la contraseña

Thenkiu por adelantado

Debes programar tu propio writeln, no es tan difícil.

No olvides de agregar a la clausula USES CRT, para usar el procedimiento ReadKey.

procedure Asterix;
var
c : char;
salir : boolean;
begin
salir := false;
while not salir do { #13 = ENTER }
begin
c := ReadKey;
if c <> #13 then
Write('*')
else
salir := true
end
end;

¿Y si quiero borrar lo que escribí? :)

Hola, lo más fácil que puedes hacer es no leer el pass con un read si no más bien letra por letra, y de esta ,manera escribes un * en vez de letra, no es tan dificil, chau

El inconveniente es que con el procedimiento Read() tendrás que oprimir un caracter y luego ENTER asta completar el password.
Además, cada véz que pulsas una tecla, se visualiza en pantalla cada caracter que oprimiste.