VAR
 f1,f2,f3:TEXT;
 N,L:Byte;
 S:String;
 C:Char;

BEGIN
 Assign(f1,'D:\Name1');
 ReSet(f1);
 Assign(f3,'D:\Name3');
 ReWrite(f3);
 Repeat
  Repeat
   Read(f1,C);
   If C<>' ' then Write(f3,C)  else WriteLn(f3);
  Until (C=' ') or (EoLn(f1)) or Eof(f1);
 Until Eof(f1);
 Close(f1);
 Close(f3);
 Write('N= ');
 ReadLn(N);
 Assign(f2,'D:\Name2');
 ReWrite(f2);
 ReSet(f3);
 ReadLn(f3,S);
 Write(f2,S);
 Repeat
  L:=Length(S);
  Repeat
   ReadLn(f3,S);
   L:=L+Length(S)+1;
   If L<=N then Write(f2,' '+S);
  Until (L>N) or (EoF(f3));
  If (not EoF(f3)) then
   begin
    WriteLn(f2);
    Write(f2,S);
   end;
 Until EoF(f3);
 Close(f3);
 Erase(f3);
 Close(f2);
END.

Гнев, богиня, воспой Ахиллеса, Пелеева сына,
Грозный, который ахеянам тысячи бедствий соделал:
Многие души могучие славных героев низринул
В мрачный Аид и самих распростер их в корысть плотоядным
Птицам окрестным и псам (совершалася Зевсова воля),
С оного дня, как, воздвигшие спор, воспылали враждою
Пастырь народов Атрид и герой Ахиллес благородный.
Кто ж от богов бессмертных подвиг их к враждебному спору?

Гнев, богиня,
воспой Ахиллеса,
Пелеева сына,
Грозный, который
ахеянам тысячи 
бедствий соделал:
Многие души могучие
славных героев низринул
В мрачный Аид и самих
распростер их в корысть
плотоядным Птицам 
окрестным и псам
(совершалася Зевсова 
воля), С оного дня,
как, воздвигшие спор,
воспылали враждою
Пастырь народов Атрид
и герой Ахиллес
благородный. Кто ж от 
богов бессмертных
подвиг их к 
враждебному спору?