[uairat]

код

program TEMP;
VAR byte,i,j,k:integer; c:resource;line:string;
begin 
c:= OpenResource('/data.txt'); 
    
      if (resourceAvailable(c)) then 
      begin 
          byte := ReadByte(c); 
          line := ReadLine(c); 
       
          CloseResource(c); 
      end; 
       
      ShowForm; 
      i := FormAddString('Byte is: ' + chr(byte)); 
      i := FormAddString('Line is: ' + line); 
      Delay(1000); 

end.