Txt 2 doc

как нынче лишний конец строки от не лишнего отличается?

 

Гадский Поттер, наверное все-таки после.

ну как-то вот так наверное:
(перед выполнением необходимо удалить все двойные пробелы)

F1= fileopen
F2 = fileopen
While not eof(f1) do begin
Ch1 = read( f1)
If ch1 = перевод строки
then
Begin
ch2 = read (f1)
if ch2 <> пробел
then ch1=ch2
write (f2, пробел)
end
write(f2, ch1)