Идея такая:
Заводим цикл с условием выхода Not(Eof);
Читаем строку командой ReadLN(f,s);
Посимвольно записываем эту строку в результирующий файл.
Тем самым избавляемся от проблемы обработки символа конца строки.
ПыСы: почти что то же самое в вашем решении, опоздал я маленько
