Pascal/Turbo Pascal - Codificar contraseñas

El profesor quiere que haga un programa que codifique las contraseñas, o sea que ponga asteriscos en vez del texto (*) y que el sistema sea capaz de usar el backspace para borrar caracteres de la contraseña.

No me está funcionando, aparecen los asteriscos pero no los borra cuando presiono backspace.

{Algo como esto o mas completo}

program claves;
uses
crt;
var
clave : string;
i : integer;
tecla : char;

begin
clrscr;
i := 1;
gotoxy(10,10);write('Entre Clave : ');
gotoxy(23,10);
repeat
tecla := readkey;
if tecla in[#48..#57,#65..#90,#97..#122,#164,#165] then
begin
clave[i] := upcase(tecla);
clave[0] := chr(i);
gotoxy(22 + i,10);write('*');
i := i + 1;
end;
if tecla = #32 then
begin
i := i - 1;
if i < 1 then
i := 1;
clave[i] := ' ';
clave[0] := chr(i);
gotoxy(22 + i,10);write(' ');
end;
until tecla = #13;
clrscr;
gotoxy(10,10);write('Su clave es : ',clave);
readln;
end.

Gracias