Дана строка символов. Подсчитать количество вхождений буквы "n"

Поставь наилучшее var n:string;    d:Char;    i,h:integer;begin  Readln(d);//Символ  readln(n);  //Строкаh:=0;  for i:=1 to Length(n) do   if n[i]=d then     Inc(h);  Writeln;  Writeln(h); readln;end.