[Yadro]

Появилась новая проблема. При использовании функций read_byte и reset приложение виснет (jsr75i). Созданный файл нормально создается и читается. Но отрываться никак не может. В чём проблема?

Program write;
uses jsr75i;
var ofile,i,opnf,byte,ss:integer;
s,savedir,hw:string;

Begin
    //save
    savedir:='/e:/text.txt';
    s:='hello world';
    file_create(savedir);
    ofile:=open_file(savedir);
    for i:=0 to length(s)-1 do write_byte(ord(GetChar(s,i)));
    flush;
    
    //open
    opnf:=jsr75i.open_file(savedir);
        if opnf<>1 then 
        begin 
        setcolor (255,255,255); 
        fillRect(0, 0, getwidth, getheight); 
        setcolor (0,0,0); 
        drawtext('Невозможно откр. файл',0,0); 
        delay(1000); 
        end; 
    jsr75i.reset;

    for byte:=0 to jsr75i.file_size(savedir) do
      begin
        ss:=jsr75i.read_byte;
        hw:=hw+ctr(ss);
      end;

    setcolor (255,255,255);
    fillRect(0, 0, getwidth, getheight);
    setcolor (0,0,0);
    drawtext(hw,0,0);
    delay(5000);
End.