Составьте программу, которая: считает, сколько раз в тексте, заданном с клавиатуры, встречается буква "М". решение паскаль через цикл

program primer;

var st1, st:string;

a, b:integer;

begin

write ('введите текст, в конце ввода нажмите enter') ; writeln;

read (st) ;

for a:=1 to length (st) do begin

st1:=copy (st, a, 1) ;

if st1='М' then

inc (b)

else if st1='м' then

inc (b)

else;

end;

write (b) ;

end.