Количество символов в строке

[Ivan357]

Задача состоит вот в этом : Определите,сколько в заданном тексте заданных букв.
Получилась программа:
var s:string;
n:real;
begin
write('vvedite text');
read(s);
n:=length(s);
writeln('n=',n:6:2);
readln(n);
end.

Программа работает,но считает буквы вместе с пробелами между словами.Помогите пожалуйста,как это исправить и куда эту часть программы впечатывать.