[Pascal] Вставить один текстовый файл в другой чередуя абзацы

[just4smth]

Задание:

Даны два текстовых файла. Один из них надо вставить в другой,
чередуя абзацы.

Получилось только скопировать текст из двух файлов в третий:

Program var15_files1;
Uses crt;
Var f1,f2,t:text;
    s1,s2:string;
    i:boolean;

Begin
     clrscr;

     assign(f1,'C:\from1.txt');
     assign(f2,'C:\from2.txt');
     assign(t, 'C:\to.txt'   );
     reset(f1);
     reset(f2);

     rewrite(t);
     while not EOF(f1) do begin
       Readln(f1,s1);
       Writeln(t,s1);
     end;
     close(t);

     append(t);
     while not EOF(f2) do begin
       Readln(f2,s2);
       Writeln(t,s2);
     end;
     close(t);

     close(f2);
     close(f1);

End.

Подскажите, как вычленять абзацы?

[Азамат Казанчев]

такой совет, найди длину первой строки и построй цикл прохоходящийся по всему тексту: если длина строки равно длине первой строки то это новый абзац. конечно сначала будут некоторые глюки, но главное начать, а дальше еще поможем

[just4smth]

Сообщение от Азамат Казанчев

найди длину первой строки и построй цикл прохоходящийся по всему тексту: если длина строки равно длине первой строки то это новый абзац.

По вашей логике:

Строка1Строка1Строка1Строка1Строка1 Строка1Строка1Строка1
Строка2Строка2Строка2Строка2Строка2 Строка2Строка2Строка2

Это два абзаца?

[OlegVE]

Здравствуйте
У Вас же абзац начинается каким-то символом или заканчивается...
До свидания

[just4smth]

Сообщение от OlegVE

Здравствуйте
У Вас же абзац начинается каким-то символом или заканчивается...
До свидания

Не совсем понял суть фразы

   OneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneO
OneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOneOnea
   TwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoT
TwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwoTwo
   ThreeThreeThreeThreeThreeThreeThreeThreeThreeThreeThreeThreeThreeThreeThr
ThreeThreeThreeThree

   FourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourF
FourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFour
FourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFourFour

   FiveFiveFiveFiveFiveFiveFiveFiveFiveFiveFiveFiveFiveFiveFiveFive

Сколько по-вашему в этом тексте абзацев?
В моём понимании, их тут - 5. (то есть абзацы отделяются друг от друга пустыми строками и знаками пробела перед первой строкой абзаца)
Или абзац - это фрагмент текста набранный между двумя нажатиями на клавишу Enter?

[OlegVE]

АБЗА́Ц, -а, м.
1. Красная строка, отступ в начале строки. Начать писать с ~а.
2. Текст между двумя такими отступами. Прочесть первый а.
(С.И. Ожегов, Н.Ю. Шведова Толковый словарь русского языка)

Потому Вы три раза правы

... абзацы отделяются друг от друга пустыми строками и знаками пробела перед первой строкой абзаца...это фрагмент текста набранный между двумя нажатиями на клавишу Enter

Осталось Вам только определить их и чередуйте чтение из двух файлов, только в разные переменные.

Добавка
При чтении первого файла установите флаг, что начался новый абзац в первом файле (или флаг, что файл закончился) и сразу-же читайте второй файл, аналогичные флаги для второго файла и всё время пишите в конечный файл (за иключениме момента, когда начался новый абзац, потом Вы запишите начало и продолжите до конца абзаца или пока не кончится файл)... Теперь понятно?

[just4smth]

OlegVE, спасибо!

Для вычленения абзацев решил использовать коды табуляции и переноса строки и каретки:

Program var15_files1;
Uses crt;
Var f1,f2,t:text;
    s1,s2,tab,newln:string;

Begin
     clrscr;

     tab:=#9;
     newln:=#13#10;

     assign(f1,'C:\from1.txt');
     assign(f2,'C:\from2.txt');
     assign(t, 'C:\to.txt'   );
     reset(f1);
     reset(f2);

     rewrite(t);
     while (not EOF(f1)) do begin
       Readln(f1,s1);
       Writeln(t,s1);
     end;

     close(t);
     close(f2);
     close(f1);

End.

Как осуществить поиск этих кодов в строке?