Склавиатуры вводится строка. определить, сколько раз в ней встречается символ "d" паскаль

Var s:string;k,i:integer;beginreadln (s);k:=0;for i:=1 to length(s) doif s[i]='d' then k:=k+1;writeln(k);end.