Pascal/Turbo Pascal - ocultar clave

Necesito ocultar una clave, que se tape a medida que se va escribiendo con un *. Llevo dias en eso y no lo he podido terminar.
Si alguien me puede ayudar estaria muy agradecida.

Bueno, algo así podría hacerse:

var Clave:string;
letra:char;

begin
clave:='';

repeat

tecla:=readkey;
if tecla<>#13 then
begin
clave=clave+tecla;
write('*');
end;
until tecla=#13;

Claro que hay que controlar qué pasa cuando el usuario apriete backspace, para borrar un asterisco usarías wherex:
gotoxy(wherex-1,wherey)
write(' ');

El código de backspace, no me lo acuerdo, lo siento.

Espero te sirva, cualquier duda, volvé a preguntar. Saludos.

El código de la tecla backspace es #8.

muchas gracias a los dos =))

hola me explicas como hago para que cada letra oculta se valla guardando en un arreglo