С клавиатуры вводится текст.Посчитать сколько букв "е" в слове введённом с клавиатуры.

var s:string; k,i:integer;beginwrite('Введите слово: '); readln(s);k:=0;for i:=1 to length(s) doif s[i]='е' then k:=k+1;writeln('В слове ',s,' буква а встречается ',k,' раз');end.