const
 n = 3;
 txt: array[1 .. n] of string =
   ('start start start finish start finish start finish start finish start',
    'start start start finish start finish start finish start finish start',
    'start start start finish start finish start finish3 start3 finish4 start4');

var
 s: string;
 i, curr, prev: integer;
begin
 s := '';
 for i := 1 to n do
   begin
     curr := 1;
     s := s + txt[i];
     while true do
       begin
         prev := curr;
         curr := prev + pos(#32, copy(s, curr, 255));
         if curr = prev then break
         else
           if curr > 20 then
             begin
               curr := prev;
               writeln(copy(s, 1, pred(curr)));
               delete(s, 1, pred(curr)); curr := 1
             end
       end;
     s := s + ' '
   end;
 writeln(s)
end.