[Bargest]

У меня работает нормально:

Код:

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows;

type
  tb=array[byte]of byte;
  pb=^tb;

var
 s:AnsiString;
 tpb:pb;

begin
 readln(s);
 tpb:=pb(s);
 writeln(AnsiChar(tpb[0]));
 readln;
end.

сделай тоже tpb: pb;