Завдання:Ввести прзвище, м039;я,по батьков як одне дане строкового типу. 1)Чи починаться

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
 var fio:=ReadlnString('Введите Фамилию Имя Отчество-gt;');
 var b:=0;
 for var i:=1 to fio.Length-1 do
  if (fio[i]='М') or (fio[i]='м')
   then b+=1;
 if blt;gt;0 then Println('Буква "М" есть в строке. Она повторяется',b,'раз(а).')    else Println('Буквы "М" нету в строке.');
end.

Пример:
 1)  Введите Фамилию Имя Отчество-gt; Миг Мария Моисеева
      Буковка "М" есть в строке. Она повторяется 3 раз(а). 

 2)  Введите Фамилию Имя Отчество-gt; Петренко Петр Петрович
      Буковкы "М" нету в строке.