Source position: compproc.inc line 198
procedure fpc_Read_Text_PChar_As_Array(
var f: Text;
out s: array [] of Char
);