procedure copyfile(what:string;new:string);
var a,b:file;c:integer;
begin
assign(a,what);
assign(b,new);
reset(a,1);
rewrite(b,1);
repeat
blockread(a,c,1);
blockwrite(b,c,1);
until Eof(a);
end;