Дана последовательность символов латинского алфавита, заканчивающаяся точкой. Определить количество слов начинающихся с буквы d (слова разделяются пробелом).

Код:
Program Tema12;
  var st:string;
      i,s:integer;
Begin
 writeln('Vvedite stroky v konce <.>');
 readln(st);
 i:=0;
 s:=0;
 while st[i]<>'.' do
  begin
   i:=i+1;
   if st[i]=' ' then
   if st[i+1]='d' then s:=s+1;
  end;
 writeln('Kol-vo slov nachinausihsy s d=',s:2);
 readln;
End.