Используя только информацию о длине строки и переменную (конечно, можно использовать и др. переменные, но не String
Тебе еще не надоела эта задача? Мне уже надоела...
Вот так попробуй:
uses crt;
var
n, i: byte;
ch, prev: char;
first, is_ok: boolean;
count: integer;
begin
count := 0;
n := 12;
first := true; prev := #0;
for i := 1 to n do begin
ch := readkey;
write(ch);
if first then
is_ok := (ch = 'm');
case ch of
#32:
begin
if prev <> #32 then
if is_ok and (prev = 'e') then inc(count);
first := true;
end;
else
first := false;
end;
prev := ch;
end;
writeln;
writeln('count = ', count);
readln;
end.
Логическая переменная is_ok принимает такое-же значение как и выражение (ch = 'm')
т.е is_ok будет принимать значение true, только в случае если переменная ch будет хранить символ 'm', в любом другом случае is_ok будет принимать значение false;
ch := 'A';
is_ok := (ch = 'm'); // is_ok == false;
ch := 'm';
is_ok := (ch = 'm'); // is_ok == true;