Free Pascal-ban hogy lehet szöveget (? ) átmásolni?

Nah az lenne a problémám, hogy kiolvastam egy exe file kódját, elmentettem s változóba ami string.

Ezután csinálni akartam egy másik exe fájlt amibe bele másolom az előbb kiolvasott kódot, de nagyon kis részét írta bele. test1.exe-ből kéne átmásolnom a test2.exe fájlba a kódokat.

Ennyire jutottam:

Program masolo;

uses crt;

var t: text; s: string;

begin

clrscr;

assgin(t,'c:\...test1.exe');

reset(t);

while (NOT EOF(t)) do readln(t,s);

close(t);

assign(t,'c:\...test2.exe');

rewrite(t);

write(t,s) {itt lenne a probléma(?)}

close(t);

readln;

end.