Даны слово и буква. Сколько раз эта буква встречается в данном слове — Pascal(Паскаль)

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