var
a,b:file of boolean;
t:boolean;
begin
assign(a,'./pascal/file1.exe');reset(a);
assign(b,'./file1.exe');rewrite(b);
repeat
read(a,t);
write(b,t)
until eof(a);
close(a);close(b)
end.
===========================================
要在桌面執行,文件不要太大