Программа в Pascal ABC. С клавиатуры вводится предложение

Если что-то будет не так — напиши, испралю. У меня простог нет возможности проверить, выполняется ли… program string_7; var s: string; k,l,i: integer; begin write ('введите строку: '); readln (s); k: =0; l: =0; for i: =1 to length (s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln ('н=',k); writeln ('м=',l); if k>l then writeln ('Больше букв Н'); if k