TURBO PASCAL:Учебное пособие. Терёхин В.В. - 118 стр.

   Write('Введите имя файла');
   Readln(S1);
   Write('Введите новое имя файла ');
   Readln(S2);
   Assign(f, S1);
   Writeln{'Файл ', S1, ' переименован в ', S2);
   Rename(f, S2} ;
end.
        Задачи для самостоятельного решения
1. Дан файл f, компоненты которого являются целыми
числами. Переписать в файл g все компоненты файла f являю-
щиеся точными квадратами.
2. Дан символьный файл f. Получить файл g, образованный из
файла f заменой всех его прописных (больших) букв
одноименными строчными (малыми).
3. Дан файл содержащий сведения о веществах. Указывается
название вещества, его удельный вес и проводимость (провод-
ник, полупроводник, диэлектрик). Вывести на экран названия и
удельные веса всех полупроводников.
4. Дан файл, содержащий сведения о различных датах. Каждая
дата это число, месяц, год. Найти самую позднюю дату.
5. Написать программу, выводящую на экран все подкаталоги
корневого каталога диска С, имена которых состоят не более
чем из четырех символов.


       26.2 Текстовые файлы
       В DOS текстовые файлы физически не отличаются от
любых других, но в Паскале различия существенны. Элемен-
тами текстовых файлов являются символы, объединенные в
строки, но текстовый файл это не file of Char или file of String.
Каждая строка заканчивается в текстовом файле символом воз-
врата каретки CR=#13 и перевода строки LF=#10. Заканчивает-
ся текстовый файл признаком конца файла SUB=#26. Работа с
текстовыми файлами очень напоминает работу с консолью.
                                                              118