PASCAL! Hogyan tudnék létrehozni egy nagyobb adat típusú változót, akár pointerek segítségével?

Egy programon kezdtem el dolgozni,ami képes fájlok másolására...az ötlet jó,és működik is de byte típusú változóval igen lassú a folyamat..létezik erre valami megoldás.

Forráskód:

program proba2;

uses crt;

var f1,f2:file;

dir1,dir2:string;

i:int64;

b:byte;

begin

clrscr;

i:=1;

write('Eleresi ut.: ');readln(dir1);

write('Kimenet: ');readln(dir2);

clrscr;

assign(f1,dir1);

reset(f1,8);

assign(f2,dir2);

rewrite(f2,8);

while not eof(f1) do

begin

writeln(100/(filesize(f1)/i):10:2,'% van keszen');

blockread(f1,b,sizeof(b));

blockwrite(f2,b,sizeof(b));

inc(i);

end;

close(f1);

close(f2);

end.

.// haladás lenne ha már mb-ként be tudnám tölteni...ötletek?...esetleg a kész megoldásra kérhetnék forráskódot...megköszönném :)