var i, o: text;
s : string;

begin
assign (i, 'C:\Users\Данила\Pascal\1.txt');
assign (o, 'C:\Users\Данила\Pascal\2.txt');
reset (i);
rewrite(o);
while not eof(i) do

  while not eoln(i) do
  begin
  readln(i, s);
  writeln(o, s);

 end;
close(i);
close(o);
End.