нужно из текстового файла быстенько убрать лишние знаки конца строки. чем? помню что что-то такое у меня было...
Гадский Поттер, наверное все-таки после. ну как-то вот так наверное: (перед выполнением необходимо удалить все двойные пробелы) 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)