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

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