Pascal-ban egy fájl olvasása közben szeretném ha a program kiírná a százalékos arányt. Kérhetnék ebben segítséget? (kód lent)

Tehát miközben olvassa a fájlt és írja a másik fájlba szeretném a százalékos arányt látni, lehetőleg olyan módon, hogy minden százalékot csak egyszer írjon ki.

A kód:

uses crt, sysutils;

var

inf,outf:file of byte;

data:array[1..250000] of byte;

nr,nw:longint;

fs,fs2:int64;

begin

assign(inf,paramstr(1));

assign(outf,paramstr(2));

reset(inf);

rewrite(outf);

fs:=filesize(inf);

repeat

blockread(inf,data,sizeof(data),nr);

fs2:=filepos(inf);

blockwrite(outf,data,nr,nw);

until(nr=0);

close(inf);

close(outf);

end.