procedure closeResource(res: resource);  

  . 



function openResource(name: string):resource;  

  ,   JAR- .      JAR-,   " ->  ". 

  var 
    res   : resource; 
    byte  : integer; 
    line  : string; 
    index : integer; 
  begin 
      res := openResource('/data.txt'); 
    
      if (resourceAvailable(res)) then 
      begin 
          byte := readByte(res); 
     line := readLine(res); 
       
          closeResource(res); 
      end; 
       
      showForm; 
      index := formAddString('Byte is: ' + chr(byte)); 
      index := formAddString('Line is: ' + line); 
      delay(1000); 
  end.  




function readByte(res: resource):integer;  

        EOF,          . 




function readLine(res: resource):string;  

        .  ,        ,    .       ,   . 



function resourceAvailable(res: resource):boolean;  

 'true',     (..  ).