Задача с использованием файла, нахождение символа в слове Опции

[-Студент-]

Вечер добрый форумчане.
вощем задал препод на первый взгляд не очень сложную задачу , но он у меня вызывает ряд затруднений ...
задание : Подсчитать кол-во слов содержащих хотябы одну букву "m"

вот текст программы , написал что мог

Код

program laba51;
var f1:text;
i:integer;
s:string;
begin
assign(f1,'laba51.txt');
rewrite(f1);
for i:=1 to 5 do begin
readln(s);
writeln(f1,s);
end;
close(f1);
end.

program laba52;
uses crt;
var f1:text;
i,k,l:integer;
s:string;
begin
assign(f1,'laba51.txt');
reset(f1);
k:=0;
while not eof(f1) do
for i:=1 to length(s) do
begin
readln(f1,s);
if s[i]='m' then k:=k+1;
i:=i+1;
end;
writeln ('kol-vo slov = ',k);
close(f1);
READKEY;
end.

если не сложно , исправте пожалуйста ... очень мне поможите

в программе я не реализовал нахождеименно слова ... неполучается это сделать

[-Студент-]

2Andriano

Нет , в строке "мама мыла раму" будет 3 слова , слово с двумя и более "m" будет считаться как 1 слово , нужно подсчитать кол-во слов в которых есть хотябы 1 буква "m"

[andriano]

2Andriano

Нет , в строке "мама мыла раму" будет 3 слова , слово с двумя и более "m" будет считаться как 1 слово , нужно подсчитать кол-во слов в которых есть хотябы 1 буква "m"

Это явно противоречит тому, что ты писал выше:

словом считается набор символов ограниченных с 2 - ух сторон пробелами

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

И, кстати, еще раз прошу уточнить насчет допустимой длины строки: если ограничение есть, целесообразнее читать файл как текст и воспользоваться стандартным набором процедур для работы со строками. Если ограничения нет, лучше читать файл как бинарный и решать задачу при помощи конечного автомата.