Срочно нужна помощь в написание задачи Сижу на экзамене

[gector]

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

[RusArtm]

Не совсем ясна задача, но можно вот так к примеру (это все символы считает кроме перевода на новую строку и на новю лини. и выводит среднее кол-во знаков (с пробелами) в предложении:

Memo1 - мемо с текстом

k:=0;
SrChisloVPredl:=0;
For i:= 1 to Length(Memo1.Text) do
  If (Memo1.Text[i]<>#13) and (Memo1.Text[i]<>#10) then If Memo1.Text[i]='.' then k:=k+1;

Lable1.Caption:='Всего '+IntToStr(k)+' предложений. Срднее количество символов:'+FloatToStr(Length(Memo1.Text)/k)

[IT-man]

тема-двойник????