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

[-Студент-]

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

В Паскале строк длиннее 255 символов НЕТ!
Различные компиляторы Паскаля поддерживают разные РАСШИРЕНИЯ языка, несовместимые друг с другом. В ТМТ, напрмер, модуль strings допускает работу в 255-символьными строками, а также с оканчивающимися нулем стоками из одно- и двухбайтовых (unicode) символов. 64К-байтных строк там нет.
А если бы и были, какая разница, если требуется обработка строк ЛЮБОЙ длины?