работа с абзацами

[Blackyy]

Здравствуйте!
есть программа, можно ли ее переделать на немного попроще?например, такое как flag и #13#10 мы не учили.
Условие: в файле поменять 2 абзацы местами, концом абзаца может быть табуляция или пустая строка.

program p_exchange;
 
var f:text; path:string; s, result1, result2, result:string; flag:boolean;
 
begin
    
    path := '/Users/leo/leo2.txt';
    assign(f, path);
    reset(f);
    
    flag := false;
    result := '';
    result1 := '';
    result2 := '';
    while not eof(f) do
    begin
        readln(f, s);
        
        if s = '' then
            flag := true
        else
            if flag then
                result2 := result2 + s + #13#10
            else
                result1 := result1 + s + #13#10;
    end;
    
    result := result2 + #13#10 + result1;
    
    write(result);
    
    close(f);
    
end.