Pascal/Turbo Pascal - CODIFICAR CONTRASEÑAS

Uses Crt;

Var

 Tecla:Char;Clave:String;Posicion:Integer;

Begin

  ClrScr;

  Posicion:=22;

  Repeat

     GotoXY(1,1);Write('Ingrese el Password: ');

     GotoXY(Posicion,1);Tecla:=ReadKey;

     if Tecla<>#8 Then

        Begin

          GotoXY(Posicion,1);Write('*');

          Clave:=Clave + Tecla;

          Posicion:=Posicion+1;

        End

      Else

        Begin

          if Clave<>'' Then

            Begin

              Posicion:=Posicion-1;

              GotoXY(Posicion,1);Write(' ');

              Delete(Clave,Length(Clave),1)

            End;

        End;

  until Tecla=#13;

 WriteLn;

 Write('Usted ingreso: ',Clave);

 Tecla:=ReadKey

End.