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

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