tb0126.pp 514 B

12345678910111213141516171819202122232425262728293031323334
  1. { Old file: tbs0145.pp }
  2. { typed files with huges records (needs filerec.size:longint) OK 0.99.7 (PFV) }
  3. {$I+}
  4. const
  5. Mb=512;
  6. siz=1024*Mb;
  7. type
  8. buf=array[1..siz] of byte;
  9. var
  10. fin,
  11. fout : file of buf;
  12. b1,a1 : buf;
  13. begin
  14. fillchar(a1,sizeof(a1),1);
  15. assign(fout,'tmp.tmp');
  16. rewrite(fout);
  17. write(fout,a1);
  18. close(fout);
  19. assign(fin,'tmp.tmp');
  20. reset(fin);
  21. read(fin,b1);
  22. close(fin);
  23. erase(fin);
  24. if not b1[512*Mb]=1 then
  25. begin
  26. writeln('data err');
  27. Halt(1);
  28. end;
  29. end.