Срочно нужна помощь в написании программы,сижу на экзамене)

[KirillG]

Условие.
Подсчитать количество букв в предложении.
Заранее спасибо.

[IT-man]

var s :string;
  i,k:integer;
begin
readln (s);
k:=0;
for i :=1 to lenght(s) do
if 
(s[i]<>' ') and not (s[i] in [1..9] )  then inc(k);// еще надо знаки препинания                    //учесть 
writeln(k)
end.

[KirillG]

Большое спасибо.