С клавиатуры вводится строка. Определить, сколько раз в ней встречается символ "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.