Дана строка символов. подсчитать количество вхождений буквы "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.