program ForForum;
var
 InF: File;
 OutF: Text;
 Buf: Char;
 RealR: Word;
 i: Byte;

Begin

 Assign(InF, 'C:Bootlog.txt');
 Reset(InF, 1);
 Assign(OutF, 'C:New.txt');
 Rewrite(OutF);
 repeat
  BlockRead(InF, Buf, 1, RealR);
  if RealR <> 1 then Break;
  if not (Buf in [#10, #13]) then begin
   Inc(i);
   if i = 50 then begin
    i := 0;
    WriteLn(OutF, Buf)
   end else Write(OutF, Buf);
  end;
 until False;
 Close(InF);
 Close(OutF)

End.