function ReadFile( i : integer ) : record;
	procedure WriteFile( i : integer; r : record );
	procedure OpenWrite( i : integer );
	function OpenRead( i : integer );
	function Eof( i : integer ) : boolean;
	ReadDirect( i : integer ) : record;
	WriteDirect( i : integer; r : record );