Ha fájlt olvasok be és egy 1 GB-os pufferbe olvasok be, ettől kiakadhat a program? (Pascal)

Mármint attól, hogy ilyen nagy a puffer, az OS nem úgy adja neki a memóriát ahogy a program szeretné (ehhez nem értek), nem ad ki annyit, esetleg nincs annyi RAM az adott gépben... Nem lehet azt megoldani, hogy annyi RAM-ot foglaljon le (vagy annak a felét) amennyi adott gépben van?

Ez a teszt program amelyben egy 1 GB-s tömböt hoztam létre, nem akad ki elvileg...

Bár a gép nagyon belassul, az biztos, pedig 3 GB RAM van benne...

Meg lehet oldani a feladatot úgy, hogy dinamikus tömb és biztonságosan, automatikusan annyit foglaljon le, amit biztos hogy az OS aktuálisan ki tud neki adni?

program fajlmasol;

const

meret = 1073741824;

var

inf, outf : File of Byte;

adat : Array[1..meret] of Byte;

NumRead, NumWritten:Longint;

Begin

Assign(inf,ParamStr(1));

Reset(Inf);

Assign(outf,Paramstr(2));

Rewrite(outf);

Repeat

BlockRead(inf,adat,Sizeof(adat),NumRead);

BlockWrite(outf,adat,NumRead,NumWritten);

Until(NumRead=0);

Close(inf);

Close(outf);

End.