Изменить текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк - Pascal

Формулировка задачи:

написать программу которая превращает текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк.

Решение задачи: «Изменить текст входящего текстового файла так, чтобы в исходящем файле не оставалось пустых строк»

Листинг программы

var
    f, g : Text;
    s : String;
    state : Boolean;
begin
    state := False;
    Assign(f, 'f.txt'); Reset(f);
    Assign(g, 'g.txt'); ReWrite(g);
    while Not(Eof(f)) do
    begin
        ReadLn(f, s);
        if (Length(s) > 0) then
        begin
            if state then //чтобы не было последнего перевода строки. другое в голову не приходит. мб другой кто подправит
                WriteLn(g)
            else
                state := True;
            Write(g, s);
        end;
    end;
    Close(f); Close(g);
    Erase(f); Rename(g, 'f.txt');
end.

Объяснение кода листинга программы

В коде используются четыре переменные: f, g, s и state.
Переменная f представляет собой файловый объект для чтения из файла f.txt.
Переменная g представляет собой файловый объект для записи в файл g.txt.
Переменная s используется для хранения строки, прочитанной из файла f.
Переменная state является булевым флагом, который первоначально установлен в False.
Код открывает файл f.txt для чтения и файл g.txt для записи.
В цикле while, который продолжается до тех пор, пока не достигнут конец файла f, код читает каждую строку из файла f и сохраняет ее в переменной s.
Если длина строки s больше 0, то код записывает строку в файл g.
Если переменная state равна True, то код записывает пустую строку в файл g перед записью строки s.
После окончания цикла, файл f закрывается, а файл g переименовывается в f.txt.
Переменная f удаляется, а переменная g получает имя f.txt.