Некорректная запись в файл - Turbo Pascal

Узнай цену своей работы

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

Добрый день. Я выполнял задание по лабораторной работе "Из текста, расположенного в файле, исключить однобуквенные слова. Результат записать в другой файл.". Программу написал, удаляет то, что нужно, вот только записывает результат в файл некорректно (обрезает часть последней строки)
Я попробовал записывать в файл по 1 строке, заменив цикл в конце
поочередно на
Но так вообще ничего не записывает в файл. Помогите, пожалуйста, разобраться

Решение задачи: «Некорректная запись в файл»

textual
Листинг программы
  Close(g); Close(f);

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

  1. Закрытие файлов g и f.

Оцени полезность:

15   голосов , оценка 3.6 из 5
Похожие ответы