var
 f:textfile;
 s:string;
begin
 assignfile(f, 'e:\test.txt:strem1');
 rewrite(f);
 write(f,'hello222222222');
 closefile(f);

 assignfile(f, 'e:\test.txt:strem1');
 reset(f);
 read(f,s);
 closefile(f);
 ShowMessage(s);