Fájlbeolvasásnál nem okoz gondot ha a puffer túl nagyra van állítva? (Pascal)

Hát, ha karakterenként olvasnám be az adatot, hidd el azért eszméletlenül lassú lenne, szerintem időben a sokszorosa annak mintha nem karakteresen történne az olvasás. :-)

Programból meg OS-hívások szintjén nem tudnám kezelni mert akkor az már nem platformfüggetlen.

Lehet én tudom rosszul és várom a megoldásokat, miként lehetne jól megoldani ha mondjuk az lenne a péld ahogy egyik fájl tartalmát másikba átmásolni.

program masolo;

var

inf, outf : file of byte;

adat : byte;

begin

assign (inf, paramstr(1));

reset(inf);

assign(outf, paramstr(2));

rewrite(outf);

while not eof (inf) do

begin

read(inf, adat);

write(outf, adat);

end;

close(inf);

close(outf);

end.