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

[-Студент-]

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

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

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

[andriano]

Вообще-то s - это строка, так что проблем с этой строчкой кода быть не должно (кроме того, что она не в том месте)

    readln(f1,s);   //замени на read, иначе будет считываться только 1-й символ каждой строки

А вот эти две строки меня озадачивают:

            if ch in simvol then l:=true;   //если ch символ-разделитель, то мы в новом слове
            if (ch='m') and l then  //если  ch нужный символ и слово новое, то...

Строго говоря, первую строку можно записать в виде:

l := ch in simvol

А их вместе:

            if (ch='m') and (ch in simvol) then  //если  ch нужный символ и слово новое, то...

Что эквивалентно

if FALSE then

т.к. один и тот же символ не может одновременно равняться m и быть разделителем.
Таким образом весь этот блок можно выбросить, оставив только вывод нуля на экран.