Pascal/Turbo Pascal - Como puedo aplicar el codigo de backspace de la tabla Ascii en pascal?

{	Cuando apreto la tecla supr o alguna de funcion , por cada espacio de letra me consume mas caracteres que una letra normal }

Program Mensaje;

Uses

	Crt;

Const

	N=10; { numero maximo de caracteres en el mensaje }

Type

	TMensaje= Array [1..N] Of Char;

	TClave  = Array [1..10]Of Integer;

	TCodigo = Record

							clave: TClave;   { clave }

							digitos: Integer;{ tamaño de la clave }

						End;

Var

	msjdeco: TMensaje;

  texto: String[N];

  tec: Char;

	i: Integer;

Begin

	i:= 1;

	Repeat

		tec:= Readkey; {Entrada de Caracteres}

		texto[i]:= tec;

		texto[0]:= Chr(i);

		Write(texto[i]);

		i := i + 1;

		If tec = #8 { Esta es la tecla de retroceso, pero para borrar la tecla es 7f y al f me lo toma con  una variable }

		Then Begin {Borrado de caracteres con tecla Retroceso, no puedo borrarlos.}

			i:=i-1;

			If i < 1 Then Begin

				i := 1;

				texto[i] := ' ';

				texto[0] := Chr(i);

				Write(' ')

			End

		End

	Until (i > N) Or (tec = #27); 

	For i:=1 To Length(texto) Do Begin

		msjdeco[i] := texto[i];

	End;

	Writeln('')

End.

{Mira las correcciones realizadas a lo tullo}

Program Mensaje;

Uses

	Crt;

Const

	N=10; { numero maximo de caracteres en el mensaje }

Type

	TMensaje = Array [1..N] Of Char;

	TClave  = Array [1..10]Of Integer;

	TCodigo = Record

	clave: TClave;   { clave }

	digitos: Integer;{ tamaño de la clave }

  End;

Var

	msjdeco: TMensaje;

  texto: String[N];

  tec: Char;

	i: Integer;

   Begin

        clrscr;

	i := 1;

        gotoxy(2 + i,10);

	Repeat

		tec := Readkey; {Entrada de Caracteres}

                if tec <> #8 then

                begin

		texto[i] := tec;

		texto[0] := Chr(i);

		gotoxy(2 + i,10);Write(texto[i]);

		i := i + 1;

                end;

		If tec = #8 Then

                Begin

		   i := i - 1;

		   If i < 1 Then

		   i := 1;

		   texto[i] := ' ';

		   texto[0] := Chr(i);

		   gotoxy(2 + i,10);Write(' ')

		End;

	Until (i > N) Or (tec = #27);

        clrscr;

	For i := 1 To Length(texto) Do

        Begin

	  msjdeco[i] := texto[i];

	End;

	Writeln(msjdeco);

        readkey;

   End.

{Primero puedes ponerlo donde quieras puesto que la posición la das en gotoxy() cambiando

 los valores cambias la posición en pantalla.

 De las otras respuestas son fallos del procedimiento tullo mira esto a ver si te ayuda a entenderlo}

 program mensaje;

 uses

    crt;

   const

      lon = 14;

  var

    tecla : char;

    x, y, cont : integer;

    salir : boolean;

    texto : string;

    mensa : string;

  function escribemensaje : string;

  begin

      cont := 1;

      salir := false;

      fillchar(texto,lon + 1,' ');

      texto[0] := chr(lon);

      x := 1;

      y := 3;

      gotoxy(20 + x,1);write('***** Entre Mensaje *****');

      gotoxy(x,y);

    repeat

       escribemensaje := ' ';

       tecla := readkey;

       if tecla in[#32..#126,#164,#165] then

       begin

          texto[cont] := tecla;

          texto[0] := chr(cont);

          gotoxy(x + cont,y);write(texto[cont]);

          cont := cont + 1;

          if cont > lon then

          salir := true;

       end;

       if tecla = #8 then

       begin

           cont := cont - 1;

           if cont < 1 then

           cont := 1;

           texto[cont] := ' ';

           texto[0] := chr(cont);

           gotoxy(x + cont,y);write(texto[cont]);

       end;

    until (salir = true) or (tecla = #13);

    if cont > 1 then

    begin

       escribemensaje := copy(texto,1,length(texto));

    end;

       clrscr;

   end;

   begin

      clrscr;

      writeln;

      mensa := escribemensaje;

      gotoxy(40,12);write(mensa); {Dejamos El Mensaje donde deseemos en

                                   este caso en posicion 40,12}

      readkey;

   end.

{A la primer pregunta mejor deja lo como esta solo te dire que soy español y me gusta ayudar

 en lo que pueda para todos.

 A la segunda a ver si este programa te ayuda.}

program muevecurs;

 uses

    crt;

  var

    texto : string;

    tecla : char;

    cont : integer;

    x, y : integer;

    valor : word;

  procedure entratexto;

  var

    pox, poy : integer;

  begin

     gotoxy(18,1);write('***** Editor De 255 Letras Finaliza Esc *****');

     cont := 1;

     x := 1;

     y := 2;

     gotoxy(x,y);

  repeat

       tecla := readkey;

       if tecla = #0 then

       valor := word(ord(readkey)) shl 8

     else

       valor := ord(tecla);

     if valor in[32..126,164,165] then

     begin

         texto[cont] := tecla;

         texto[0] := chr(cont);

         gotoxy(x, y);write(texto[cont]);

         cont := cont + 1;

         x := x + 1;

         if x > 79 then

         begin

            x := 1;

            y := y + 1;

         end;

         if cont > 255 then

         cont := 255;

     end;

     if valor = 8 then

     begin

        cont := cont - 1;

        if cont < 1 then

        cont := 1;

        x := x - 1;

        if (x < 1) and (y > 2) then

        begin

        x := 79;

        y := y - 1;

        end;

        if (x < 1) and (y <= 2) then

        x := 1;

         texto[cont] := ' ';

         texto[0] := chr(cont);

         gotoxy(x, y);write(texto[cont]);

     end;

     if valor = 19200 then {izquierda}

     begin

          cont := cont - 1;

          x := x - 1;

          gotoxy(x,y);

     end;

     if valor = 19712 then {derecha}

     begin

        cont := cont + 1;

        if cont > length(texto) then

        cont := length(texto);

        x := x + 1;

       if x > cont -(y * 79) then

        x := cont;

        gotoxy(x,y);

     end;

     if valor = 18432 then {Arriba}

     begin

        y := y - 1;

        gotoxy(x,y);

     end;

     if valor = 20480 then {Abajo}

     begin

        y := y + 1;

        gotoxy(x,y);

     end;

    if valor = 13 then

    begin

       texto[cont] := chr(13);

       texto[0] := chr(cont);

       cont := cont + 1;

       if cont > 255 then

       cont := 255;

       x := 1;

       y := y + 1;

       gotoxy(x,y);

    end;

  until valor = 27;

  end;

  begin

     clrscr;

     entratexto;

  end.