Предложением будем называть любой набор символов до 255 знаков. В конце может стоять точка. «слова» разделяются пробелом или запятой.
Пример в качестве разделителя пробел и узнать кол – во слов:
//процедуры удаления пробелов в начале и в конце строки
Procedure Del_Sp_L(var s:string);
Begin
While s[1]=’ ’ do
Delete(s,1,1);
end;
Procedure Del_Sp_R(var s:string);
Begin
While s[length(S)]=’ ’ do
Delete(s, length(S),1);
end;
//сколько слов начинается заданной буквой