Pascal. В строке найти и вывести все собственные имена

[brain3r]

Добрый день форумчане, нужна ваша помощь в решении задачки:

Задача:
В заданном тексте (строке) найти и вывести все собственные имена.
За собственное имя считать последовательность символов, которая содержит латинские буквы и начинается с большой буквы и перед этой последовательностью НЕ должно стоять точки.


Основу набросал, а дальше ступор ...

program two;
uses crt;
var
 s1,s2:string;
 i,len:integer;
begin
clrscr;
 s1:='tyt text kotorui soderjut 2 nazvanija: Kuev i Dnepr.Nachalo novogo predlojenija';
 s2:='';
 len:=length(s1);
 ...
writeln('Do:',s1);
writeln('=======================================');
writeln('Posle obrabotki:',s2);
end.

Буду рад любой помощи.

[Stilet]

Раз уж тебе все равно не с чего начать, начни с разделения строки на слова:http://www.programmersforum.ru/showt...369#post398369

[brain3r]

Stilet, Допустим разбили строки на слова, дальше каждое слово проверять на наличие большой буквы на 1-ом месте, если нашлось такое слово, то вывести слово целиком ...
Вот только как такую проверку сделать ...

program two;
uses crt;
var
 s1,s2:string;
 a:array[1..100] of string
 i,count,len:integer;
begin
clrscr;
 s1:='tyt text kotorui soderjut 2 nazvanija: Kuev i Dnepr.Nachalo novogo predlojenija';
 s2:='';
 len:=length(s1);
 count:=1;
 i:=1; 
 while (i<=len) do 
 begin
   if s1[i]=' ' then 
	begin 
	inc(count);
	inc(i);
	end;
   a[count]:=a[count]+s1[i];
   inc(i);
 end;
 ...
writeln('Do:',s1);
writeln('=======================================');
writeln('Posle obrabotki:',s2);
end.