io.inc

一个编译器修改的例子

function ReadChar(var ch : char) : bool;
function WriteChar(ch : char) : bool;

function ReadInt(var i : int) : bool;
function WriteInt(i : int) : bool;

function ReadLine(var a : string) : bool;
function WriteLine() : bool;

function ReadReal(var r : real) : bool;
function WriteReal(r : real) : bool;

function ReadString(var s : string) : bool;
function WriteString(s : string) : bool;