var
f: File;
c: Char;
begin
AssignFile(f, 'Dosyaadi.bin');
Reset(f, 1);
BlockRead(f, c, sizeof(c));
CloseFile(f);
end;
Yukaridaki kod her seferinde bir karakter okur. Disk erisimi yavas bir islemdir. Bu nedenle bir mecburiyet yoksa, her seferinde 1 karakter yerine daha fazlasi okunmalidir.