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

program ddd;

var s :string;

k: integer;

begin

writeln(\'Введите строку,состоящую из латинских символов\');

readln(s);

k:=0;

for i:integer:= 1 to length(s) do  if copy(s, i, 1) = \'d\' then k := k + 1;   

writeln(\'Символ d встречается в строке символов \', k, \' раз\')

end.