program copydata(data, output);var    ch: char;    data: text;begin    reset(data);    while not eof(data) do begin	while not eoln(data) do begin	    read(data, ch);	    write(ch)	end;	readln(data);	writeln    endend { copydata }.