Паскаль, работа с файлами.

[Alexey_HvaranG]

Пожалуйста помогите.
Необходимо составить программу, с помощью которой:

Подсчитать количество слов, содержащих хотя бы одну букву "М". (то есть чтобы можно было ввести текст, и прога посчтитала кол-во слов с буквой "м" );

Заранее спасибо.

[dr.Chas]

slovo:='';
for i:=1 to length(s) do
if s[i] in ['a'..'z','A'..'Z','1'..'9'] then slovo:=slovo+s[i] else 
 for j:=1 to length(slovo) do
  if slovo[j]='m' then begin inc(n); {n количество слов } break; end;

В назание написано "работа с файлами", а в условии задания ни чего про них не говорится.

[Alexey_HvaranG]

dr.Chas и на этом спасибо, так написано в задании оО . Необходимо сформировать текстовой файл через паскаль, в который как раз и попадет введенный текст и подсчитать слова содержащие букву "м".
Извините, что сразу не совсем ясно изложил.

[Alexey_HvaranG]

О, спасибо, на основе этой выдержки составил прогу, привязал к текстовому файлу, плюстк в стату, если пойму как , спасиб

[Alexey_HvaranG]

Есть вопрсик, вроде все сделал как мог, но все равно не правильно, ибо сказали это сделать не одной, а двумя, отдельными прогами помогите плиз (
Вообщем надо сформировать текстовой файл из строк, которые должны быть введены с клавиатуры;
Я его создал при помощи вот этого кода:
program pr0;
var slovo:string;
i, j, N : integer;
str:string;
F:text;

Begin
writeln (' vvedite chislo strok: ' );
readln(N);
assign (F, 'textelite.txt' );
rewrite(F);
writeln (' Vvedite text: ' );
for i:=1 to N do
begin
readln(Str);
writeln(F, Str);
end;
close(F);
end.

Это вроде как понятно, и теперь, надо сделать прогу, которая бы считала количество слов, содержащих хотя бы одну букву "M". То есть открывала бы тот текстовой файл считывала его и посчетала.

Выложите пожалуйста код этой второй проги, я плохо в файлах разбираюсь , а сдавать уже скоро =(

[Alexey_HvaranG]

Помогите пожалуйста :'(