Pascal/Turbo Pascal - ayuda pascal

{Mira revisa esto}

program cadena_caracteres;

uses

   crt;

var

  carac : string[100];

  i : integer;

  tabcar : array [1..100] of char;

  valor_numerico : word;

  begin

      clrscr;

      write('introduce una cadena de caracteres: ');

      read(carac);

      valor_numerico := 0;

      for i := 1 to length(carac) do

      begin

        valor_numerico := valor_numerico + ord(carac[i]);

        tabcar[i] := carac[i];

      end;

     writeln;

     writeln ('El valor numerico de la cadena es: ',valor_numerico);

     writeln;

     writeln(' La Cadena Es ');

     writeln;

     for i := 1 to length(carac) do

      begin

        write('  ',tabcar[i]);

      end;

     readkey;

   end.