Pascal/Turbo Pascal - Problema con password al pulsar la tecla BackSpace

program Project1;

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;

clrscr;

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.

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.