Пожалуйста помогите с задачкой на строки

[kiko]

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

помогите пожалуйста!

[alex_fcsm]

var s:string;
    ch:char;
    i,n:integer;

begin
writeln('Input string');
readln(s);
writeln('Input letter');
readln(ch);
n:=0;
for i:=1 to length(s) do
 if ch=s[i] then inc(n);

writeln(n);
end.

[kiko]

alex_fcsm огромное спасибо!
alex_fcsm можешь помочь с задачкой, я тему создавал ... там про базу данных
http://programmersforum.ru/showthread.php?t=30935
пожалуйста помоги

[alex_fcsm]

Вы хоть бы раз оценили сообщения...
Щас посмотрю