Технический форум - Задача. Паскаль

Цитата:

Сообщение от NAt (Сообщение 919915)

Организовать текстовый файл, . Оставив в файле только буквы. (создавая новый дополнительный файл).

подскажите пожалуйста.

И в чем проблемы? Решительно не вижу:

Код:

Var

 f1,f2:Text;

 Lit:Set of Char;

 C:Char;

Begin

 Lit:=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я'];

 Assign(f1,'{здесь ввести полное имя входного файла, каковой предварительно создать}');

 Reset(f1);

 Assign(f2,'{здесь ввести полное имя выходного файла}');

 Rewrite(f2);

 Repeat

  Read(f1,C);

  If (C in Lit) then Write(f2,C);

 Until EoF(f1);

 Close(f1);

 Close(f2);

End.