programm fsdfs;
var
  f1, f2, f3: textfile;
  i: integer;
  c: char;

begin
  assignfile(f1, 'aa.txt');
  assignfile(f2, 'bb.txt');
  assignfile(f3, 'cc.txt');

  reset(f1);
  rewrite(f2);
  rewrite(f3);
  i := 0;
  while not(Eof(f1)) do
  begin
    read(f1, c);
    case c of
      ' ':
        begin
          i := 1;
          write(f2, #13#10);
        end;
      #10:
        continue; //Пропустить этот служебный символ
      #13:
        begin
          i := 0; //Перейти на первый файл
          write(f3, #13#10); //Дописать перенос строки.
        end;
    else
      if i = 0 then
        write(f2, c)
      else
        write(f3, c);
    end;

  end;
  closefile(f1);
  closefile(f2);
  closefile(f3);

end;