У Вас какие либо наработки?

Я знаю только 1 вариант. Не могу найти второй.

[code lang=pascal]Program zadanie3bvar2;
Var
s, s1: string;
i, k: integer;
Begin
writeln ('Введите строку');
readln (s);
k:=0;
for i:=1 to length(s) do
if copy(s,i,2)='ма' then k:=k+1;
writeln ('Количество слогов "ма" в строке = ', k);
End.[/code]

Добавим ещё два базовых.
Вы же просили:

двумя способами

[code lang=pascal]var
a,i:integer;
b,s:string;
begin
b:='ma';
write('Enter string:');
readln(s);
a:=0;{этот вариант не универсален, т.к. зависит от длины строки b, но если добавить ещё один цикл j:=0,length(b),1 и условием s[i+j]=b[j+1], то это способ может стать универсальным}
for i:=1 to length(s)-1 do
if (s[i]=b[1])and(s[i+1]=b[2])then inc(a);
writeln('result 1:=',a);
{это вариант, тоже не универсальный, т.к. если нужно будет искать строку 'mam', то строке 'mamam' даст ответ 1, но если удалять только первый символ, можно получить почти универсальный вариант, с одной ошибкой строка 'mam' в строке 'mmam' будет найдена два раза}
a:=0;
while pos('ma',s)>0 do
begin
inc(a);
delete(s,pos(b,s),length(b));
end;
writeln('result 2:=',a);
end.[/code]
два варианта в коде + ещё плюс по одному в комментариях(указания на недостатки).

Картинка-кнопка служит, для выбора языка программирования, при вставке своего кода.
Обратите на это свое внимание

Спасибо.

Остальные Ваши вопросы после этого актуальны?

Да, конечно.