ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ - помогите найти ошибку..., ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ, написал прогу, но не пойму в чём ошиб Опции

[Demon_en]

ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ

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

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.

[IUnknown]

А в чем, собственно ошибка-то? Я имею в виду, проявляется она как?

То, что UpCase не работает с кириллицей? Это правильно, вводи только латинские буквы, или пиши свою функцию UpCase (в поиске по форуму можно найти готовую). Или что имеется в виду? То, что по нажатию '.' программа не печатает сразу ответ, а надо нажать еще и на ввод? Почему надо обязательно гадать, а нельзя сразу написать, что ожидалось, и чего не происходит???