{$codepage UTf8} Var cad:String; cad1:Pchar; Begin cad:='Hola'; cad1:=@cad[1]; Writeln(cad1) End.