{Program to Delete space of file}
var	fi,fo:file of char;
	g:char;
	fid,fod:string;
procedure isspace;
begin
		while g = chr(32) do
		begin
			read(fi,g);
			if g <> chr(32) then
			begin
				write(fo,g);
				write(g);
				exit;
			end;
		end;
end;
begin
	write('Input file : ');readln(fid);
	write('Output file: ');readln(fod);
	assign(fi,fid);reset(fi);
	assign(fo,fod);rewrite(fo);
	while not eof(fi) do
	begin
		read(fi,g);
		write(fo,g);
		write(g);
		isspace;
	end;
	close(fo);
end.