Помогите с программированием♥
Программа создаётся в Паскале.
С клавиатуры вводится предложение и буква. Определить, сколько таких букв в предложении.

var s:string; c:char; i,k:integer;
begin
writeln('Введите предложение'); 
readln(s);
write('Введите букву: ');
readln(c);
k:=0;
for i:=1 to length(s) do if s[i]=c then k:=k+1;
writeln('k=',k);
end.

Пример:
Введите предложение
С клавиатуры вводится предложение и буква.
Введите букву: в
k=4