Ребят П0м0гите написать прогу "ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ"

[Demon_en]

Ребят помогите написать прогу.... на паскале
суть такова:
################################### ############
С клавиатуры посимвольно вводится фраза. Определите, сколько имен собственных содержится в данной фразе. Именем собственным считать слово, начинающееся с большой буквы. Фраза считается введенной, если очередной веденный символ - точка
################################### ############

сам не понимаю как это сделать... помогите написать плиз...
заранее спасибо

[Dush]

можно вот так

var ch:char; //вводимый символ
old_ch:char;//предидущий символ
k:integer; //кол-во слов собственных
begin
    read(ch);
    old_ch:=' ';
    k:=0;
    while  ch<>'.' do
    begin
      if (ch=UpCase(ch)) and (old_ch=' ') then k:=k+1;
      old_ch:=ch;
      read(ch);
    end;
    Writeln(k);
    readln;
end.

[Serge_Bliznykov]

Dush, простое и красивое решение. Хоть и не без недостатков.

Хотя, конечно, можно поспорить.
1) в задании ничего не сказано о разделителях слов. ладно.
раз не сказано, можем считать, что разделитель - пробел.

2) Если пробелов несколько подряд? Если не ошибаюсь, то в вашем коде пробел после пробела посчитается за имя собственное.

p.s. исправить легко - достаточно добавить условие, что символ не равен пробелу:

      if (ch<>' ') and (ch=UpCase(ch)) and (old_ch=' ') then k:=k+1;

[Demon_en]

программы не хочет запускаться.. но не чего.. понял в чём ошибка=)
спасибо огромное за идейку, прогу=)
спасибо

[Demon_en]

Ребят.. а как написать ту прогу со String???