А як текст задається? Відбувається читання з файлу чи константа?

Код:
[code=pas]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.[/code]

Приклад файлу:

line1
line2

line4
line5

#13#10 - символи переходу на новий рядок

можна так як варіант:

program p_exchange;

var f:text; path:string; s:string; flag:boolean;

begin
    
    path := '/Users/leo/leo2.txt';
    assign(f, path);
    
    reset(f);
    flag := false;
    while not eof(f) do
    begin
        readln(f, s);
        
        if flag then
            writeln(s);
        
        if s = '' then
            flag := true;
            
    end;
    
    writeln();
    
    reset(f);
    flag := true;
    while not eof(f) and flag do
    begin
        readln(f, s);
        
        write(s);
        if s = '' then
            flag := false
        else
            writeln();
            
    end;
    
    
    write(result);
    
    close(f);
    
end.

@Torbins
Ви не розумієте - це вдалий маркетинговий хід Спочатку він заманює жертву, а коли та розівчиться програмувати - він буде косити бабло.

А може гусари з дам грошей не беруть