Задача. Паскаль

[NAt]

Задача. Паскаль

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

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

 

[Vladimir_S]

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

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

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

Var
 f1,f2:Text;
 Lit:Set of Char;
 C:Char;
Begin
 Lit:=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я'];
 Assign(f1,'[COLOR=Red][B]{здесь ввести полное имя входного файла, каковой предварительно создать}[/B][/COLOR]');
 Reset(f1);
 Assign(f2,'[COLOR=Red][B]{здесь ввести полное имя выходного файла}[/B][/COLOR]');
 Rewrite(f2);
 Repeat
  Read(f1,C);
  If (C in Lit) then Write(f2,C);
 Until EoF(f1);
 Close(f1);
 Close(f2);
End.

 

[NAt]

спасибо за помощь

 

[NAt]

файлы паскаль

=)=)=)=)=)