Есть ли в предложении слова начинающиеся с заглавной буквы - Pascal
Формулировка задачи:
Цель: разработать программу исходного предложения на русском языке (из 50-80 знаков в котором слова отделяется друг от друга пробелами) с целью определения, есть ли в предложении слова начинающиеся с заглавными буквами.
И вот тут я кароче не понимаю что и как делать, заранее спасибо
Решение задачи: «Есть ли в предложении слова начинающиеся с заглавной буквы»
textual
Листинг программы
var s:string;
i,k:byte;
..........................
i:=1;
k:=0;
while(i<length(s))and(k=0) do
if(s[i] in ['A'..'Z','А'..'Я','Ё'])and((i=1)or(s[i-1]=' '))then k:=1
else inc(i);
if k=0 then write('Таких слов нет')
else write('Такие слова есть');