[Vladimr]

решение задачи 1.

Код:

var s:string; //текст с предложениями
a:integer; //кол-во предложений
i:integer; //для цикла
begin
//любым способом передаём ваш текст в переменную s
s:=s+' '; //для того что бы считало последнее предложение
a:=0; //первоначальное значение кол-ва предложений
for I := 1 to length(s) do if ((s[i]='!')or(s[i]='?')or(s[i]='.'))and(s[i+1]=' ') then a:=a+1;
//если текущий символ является концом предложения и после него стоит пробел то считаем
writeln('кол-во предложений в тексте: '+inttostr(a));
end;