Технический форум - Работа с текстом

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Работа с текстом (http://www.tehnari.ru/f43/t54435/)

Работа с текстом

Здравствуйте! Нужна помощь студенту специальности далёкой от программирования. Помогите кто чем сможет :)
Написать программу, считывающую посимвольно информацию из текстового файла, позволяющую отредактировать считанный текст и сохранить файл на диске. Модифицировать созданную программу для выполнения операций с текстом в зависимости от номера варианта.
В считанном тексте подсчитать количество согласных символов.

Сударь (ну или сударыня), а не будете ли Вы столь любезны, и не снизойдете ли до указания нам, слабоумным - а на каком на таком языке программирования должны быть выполнены выложенные Вами, многоуважаемый (-ая), задания? На Delphi, али и Pascal сойдет? Вы уж не гневитесь сильно, что подобной мелочью обеспокоить Вас дерзнули...

Цитата:

Сообщение от апельсин (Сообщение 552242)

на Pascal

Тогда - пожалуйста. Хотя я не очень понял, что требуется "сохранить на диск". Поэтому программа сохраняет исходный файл и в конце добавляет строку с указанием количества согласных букв.
Имена файлов, а также пути к ним поставьте, естественно, свои.

Код:

CONST

 Sogl=['Б','В','Г','Д','Ж','З','К','Л','М','Н',

       'П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ',

       'б','в','г','д','ж','з','к','л','м','н',

       'п','р','с','т','ф','х','ц','ч','ш','щ'];

VAR

 f_in,f_out:Text;

 Ch:Char;

 N:Word;



BEGIN

 Assign(f_in,'D:\txt_in.txt');

 ReSet(f_in);

 Assign(f_out,'D:\txt_out.txt');

 ReWrite(f_out);

 N:=0;

 Repeat

  Read(f_in,Ch);

  Write(f_out,Ch);

  If (Ch in Sogl) then Inc(N);

 Until Eof(f_in);

 Close(f_in);

 Writeln(f_out);

 Writeln(f_out,'N_sogl= ',N);

 Close(f_out);

END.

большое спасибо!!