Source position: compproc.inc line 196
procedure fpc_Read_Text_ShortStr(
var f: Text;
out s: String
);