1program copydata(data, output); 2var 3 ch: char; 4 data: text; 5begin 6 reset(data); 7 while not eof(data) do begin 8 while not eoln(data) do begin 9 read(data, ch); 10 write(ch) 11 end; 12 readln(data); 13 writeln 14 end 15end { copydata }. 16