в Паскале 2 абзацы поменять местами

[Blackyy]

помогите пожалуйста!

нужно в текстовом файле поменять местами 1 и 2 абзацы.

[ViktorR]

А как следует понимать разделение на абзацы?
Например, абзац заканчивается пустой строкой.
1. Создаем текстовый файл с несколькими абзацами.
2. В программе открываем файл и читаем, в цикле, до первой пустой строки или до обнаружения конца файла.
3. Если обнаружили конец файла, то завершаем работу. Переставлять нечего.
4. Если обнаружили пустую строку, то открываем выходной файл.
5. Читаем, в цикле, входной файл по строкам и записываем строки в выходной файл, пока не обнаружим пустую строку или конец файла.
6. Если попалась пустая строка, то пишем в выходной файл, иначе (обнаружен конец файла) допишем пустую строку. Это разделитель абзацев.
7. Выполняем команду reset(fh_in) для входного файла. Перейдем в начало входного файла.
8. Читаем файл по строкам, в цикле, и продолжаем писать строки в выходной файл.
9. Если обнаружили пустую строку, то читаем строки далее, но не пишем в выходной файл (ищем следующую пустую строку или конец файла - пропускаем абзац).
10. Если обнаружили следующую пустую строку, то продолжаем писать строки в выходной, иначе (обнаружен конец файла) завершаем работу.
Все.
Процедуры для работы с файлом знаем?
Вот немного кода для обнаружения конца абзаца или конца файла.

var flg : boolean;
      fh_in, fh_out : Text;
...
...
flg := false;
While NOT Eof(fh) do begin
...
   readln(fh_in, str);
   if Length(str) = 0 then begin
      flg := true;
      break;
  end;
...
end;
  if flg then {найдена пустая строка}
   ...
 else   {найден конец файла}
   ...;

Как-то вот так получилось ...

[Blackyy]

спасибо!буду пробовать, надеюсь что получится