fork download
  1. programm fsdfs;
  2. var
  3. f1, f2, f3: textfile;
  4. i: integer;
  5. c: char;
  6.  
  7. begin
  8. assignfile(f1, 'aa.txt');
  9. assignfile(f2, 'bb.txt');
  10. assignfile(f3, 'cc.txt');
  11.  
  12. reset(f1);
  13. rewrite(f2);
  14. rewrite(f3);
  15. i := 0;
  16. while not(Eof(f1)) do
  17. begin
  18. read(f1, c);
  19. case c of
  20. ' ':
  21. begin
  22. i := 1;
  23. write(f2, #13#10);
  24. end;
  25. #10:
  26. continue; //Пропустить этот служебный символ
  27. #13:
  28. begin
  29. i := 0; //Перейти на первый файл
  30. write(f3, #13#10); //Дописать перенос строки.
  31. end;
  32. else
  33. if i = 0 then
  34. write(f2, c)
  35. else
  36. write(f3, c);
  37. end;
  38.  
  39. end;
  40. closefile(f1);
  41. closefile(f2);
  42. closefile(f3);
  43.  
  44. end;
Internal error #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty