Строки

var
  s:string;
  i,k2,c1,c2,k1,j:integer;
 
begin
writeln('string: ');
//readln(s);
s:='aaaa ssss ddd ssss sd. aaa ss aaa sssss ssss. qqqq ddd ppp a sss.';
writeln(s);
k2:=0;
c1:=1;
for i:=1 to length(s) do
  if s[i]='.' then
    begin
      c2:=i;
      c1:=i+1;
      for j := c2 to c1 do
        if s[i]=' ' then
          begin
            inc(k1);
              if k1>3 then inc(k2);
          end;    
    end;
 
writeln('kolichestvo iskomix predlojenii - ',k2);
readln;
end.

program offer;
 
var i, k, n: integer;
    s: string;
 
begin
  writeln('string: ');
  //readln(s);
  s:='aaaa ssss ddd ssss sd. aaa ss aaa sssss ssss. qqqq ddd ppp.';
  writeln(s);
  s := ' ' + s; //пробел для упрощения алгоритма
  n := 0; //количество пробелов (на самом деле - количество слов)
  k := 0; //количество предложений
  for i := 1 to length(s) do
    case s[i] of
      ' ': n := n + 1;
      '.': begin
             if n > 3 then k := k + 1;
             n := 0
           end
    end;
  writeln('kolichestvo iskomix predlojenii - ', k);
  readln
end.

  s := ' ' + s + ' '; //пробелы для упрощения алгоритма
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1); //убираем лишние пробелы
  while pos(' .', s) > 0 do delete(s, pos(' .', s), 1); //убираем пробелы перед точками
  for i := length(s) downto 1 do if (s[i] = '.') and (s[i + 1] <> ' ') then insert(' ', s, i + 1); //вставляем пробелы после точек