Паскаль, текстовой файл.

[Alexey_HvaranG]

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

[dr.Chas]

В чём смысл?

[Stilet]

Вот смотри:

  var e,s:string;
  i:integer;
begin
 s:='Hello my world';e:='';s:=s+' ';
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then begin
    writeln(e);
{В переменке Е очередное слово вот атрави на него функцию
Pos и узнай есть ли в нем буква М}
    e:='';
   end else
    e:=e+s[i];
   inc(i);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Этот код работает со строкой. Тебе остается прикрутить цтение файла построчно в цикле пока функция EOF не вернет конец файла.
Смысл ясен?